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

Primary tabs

Submitted by pboldov on Thu, 01/12/2023 - 16:22

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

program Pr11_11;
var i:integer;
begin
  i:=4;
  while (i<=100) do
    begin
      write(i:4);
      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