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