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

Primary tabs

Submitted by pboldov on Thu, 01/12/2023 - 14:12

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

program Pr10_1_4;

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