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