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