Урок 13.1. Задача 6.
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
var a : integer; begin while (true) do begin write('Enter an integer : '); readln(a); if (a > 0) then for a := 1 to a do write(a, ' ') else writeln('This is mistake'); end; read(); end.
- Log in to post comments
- 339 reads
vedro-compota
Sat, 05/21/2022 - 18:12
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)