Задача 11 Урок 11

Primary tabs

Submitted by Neoanthropus on Mon, 07/04/2022 - 11:03

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var a, b: integer;
begin
  a := 0;
  for b:= 1 to 25 do
  begin
    a:= a + 4;
    write(a, ' ');
  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