Урок 13.1 Задача 6
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
var i, j: integer; begin readln(i); while i>=1 do begin for j:=1 to i do writeln(j); readln(i); end; writeln('Error'); readln(); end.
- Log in to post comments
- 434 reads