Задача 6 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
var i, m: integer; begin write('vvedite pologitelnoe chislo: '); readln(m); while (m >= 0) do begin for i:=1 to m do write(i, ' '); writeln(); write('vvedite chislo: '); readln(m); end; write('ohibka!'); readln(); end.
КОНСОЛЬ:
vvedite pologitelnoe chislo: 10 1 2 3 4 5 6 7 8 9 10 vvedite chislo: 5 1 2 3 4 5 vvedite chislo: -2 ohibka!
- Log in to post comments
- 526 reads