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

Primary tabs

Submitted by studentmedic on Tue, 05/17/2022 - 10:11

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

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

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

program Variant2;
var a, s: integer;
begin
  a := 0;
  for s:= 1 to 25 do
    begin
    a:= a + 4;
    write(a, ' ');
    end;

end.