Урок 10.1 Задание 4

Primary tabs

Submitted by Ksgor on Sun, 01/08/2023 - 12:45

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

var i:integer;
begin
 for i:=35 to 64 do
  if i mod 2 =0 then
   write(i, ' ');
 readln();
end.

Консоль:

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