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

Primary tabs

Submitted by nglag on Thu, 07/15/2021 - 17:30

Forums:

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

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

Решение

program U11z11;

var i: integer;

begin
   i:=1;
   while i<1000 do
   begin
      if i mod 4 =0 then
         write (i, ' ');
            i:=i+1;
   end;

 readln();

end.
  • Log in to post comments
  • 885 reads
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:55

решение засчитано

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