Задача 6 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
var a, i: integer; begin writeln('Vvedite polozhitelnoe celoe chislo'); readln(a); while (a = a) do begin if (a < 1) then writeln('Error') else begin for i := 1 to a do writeln(i); end; writeln('Vvedite polozhitelnoe celoe chislo'); readln(a); end; end.
КОНСОЛЬ
Vvedite polozhitelnoe celoe chislo 3 1 2 3 Vvedite polozhitelnoe celoe chislo -3 Error Vvedite polozhitelnoe celoe chislo 3 1 2 3 Vvedite polozhitelnoe celoe chislo 7 1 2 3 4 5 6 7 Vvedite polozhitelnoe celoe chislo
- Log in to post comments
- 688 reads