Урок 10.1 Задача 3

Урок 10.1 Задача 3

Выведите на экран, все четные числа от 35 до 64.

Решение:

program Project1;
var e:integer;
begin

  for e:=35 to 64 do
   if  ((e mod 2) = 0) then
     writeln(e, '');

  readln();
end.

Консоль:

36
38
40
42
44
46
48
50
52
54
56
58
60
62
64