Задача 6 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведите сообщение об ошибке, в противном случае выведите на экран все числа от 1 до введённого пользователем.
var a,b:integer; begin repeat writeln ('vvedite chislo'); readln (a); b:=1; while b<=a do begin write(b,' '); b:=b+1; end; writeln(); until a<=-1; writeln('Error'); readln(); end.
Вывод консоли:
vvedite chislo 20 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 vvedite chislo -1 Error
- Log in to post comments
- 73 reads