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