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