урок 12.2 задача 2

Вспомогательная задача (сдавать не обязательно):
Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

1 5 9 11 15 19 23 27 31 35 39 43

var i:integer;
begin
 for i:=1 to 44 do
  begin
   if ((i mod 4)=1) then
   writeln(i)
  end;
 readln();
end.               
vedro-compota's picture

исправить форматирование

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

var i:integer;
begin
  for i:=1 to 44 do
    begin
      if ((i mod 4)=1) then
        writeln(i)
     end;
 readln();
end.
vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)