Задача 6 урок 13.1
Primary tabs
Задача 6 урок 13.1
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
var b, i: integer; begin repeat writeln('Vvedite celoe chislo > 0'); readln(b); if (b <= 0) then writeln('Error') else for i := 1 to b do write(i,' '); until(b <= 0); readln(); end.
- Log in to post comments
- 677 reads