Задача 7 Урок 13.1
Primary tabs
Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.
var i,a: integer; begin writeln('vvedite 4islo > 0 - '); readln(i); if (i > 0) then for a := 1 to i do if ((a mod 2)=0) then write(a, ' ') else if (i < 0) then writeln('oshibka!'); readln(); end.
- Log in to post comments
- 661 reads