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