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

Primary tabs

Submitted by Shamanov on Sun, 04/03/2022 - 14:33

Выведите на экран, все четные числа от 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