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

Primary tabs

Submitted by Lena on Wed, 12/29/2021 - 12:26

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

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

var i:integer;

begin
  i:=4;
  while i<101 do
begin
   write (i,' ');
   i:=i+4;
end;
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