Задание 11 Урок 11

Primary tabs

Submitted by sunsen on Wed, 02/09/2022 - 14:10

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

(при более оптимальном решении проверка через mod не потребуется)

var i: integer;
begin
  i := 4;
  while (i <= 100) do
    begin
      write(i, ' ');
      i := i + 4;
    end;

  readln();
end.

Консоль:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100