Задание 7 Урок 13.1
Primary tabs
Задание 7 Урок 13.1
Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.
var i,i1 : integer; begin i := 1; while (i > 0) do begin write('Введите число и нажмите ENTER: '); readln(i); if (i > 0) then for i1 := 1 to i do if ((i mod 2) = 0) then write(i1, ' '); writeln(); end; write('ОШИБКА! нажмите ENTER!'); readln(); end.
- Log in to post comments
- 755 reads