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

Primary tabs

Submitted by MrDeadSummer on Sun, 07/25/2021 - 18:22

Forums:

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

var a: integer;
begin
   a := 0;
   while (a < 100) do
         begin
         a := a + 4;
         writeln(a);
         end;
   readln();
end.
  • Log in to post comments
  • 1059 reads
vedro-compota's picture

vedro-compota

Thu, 07/29/2021 - 20:35

неверное форматирование см http://fkn.ktu10.com/?q=node/8763 и http://fkn.ktu10.com/?q=node/11378

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

MrDeadSummer

Thu, 07/29/2021 - 22:11 

var a: integer;
begin
  a := 0;
  while (a < 100) do
    begin
      a := a + 4;
      writeln(a);
    end;
  readln();
end.