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

Primary tabs

Submitted by Ksgor on Thu, 01/19/2023 - 18:24

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

program Hello;
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