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