Решение задачи 11 из главы 11

Решение задачи 11 из главы 11

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

program Project11;
var a: integer;
begin
  a:= 0;
  while ( a <= 100) do
  begin
      a:=a+4;
      if (a > 100) then
         break;
      write(a, ' ');
  end;
readln();
end.
vedro-compota's picture

для тренировки: добавьте в комментарии альтернативное решение без break

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

program Project11;
var a: integer;
begin
  a:= 0;
  repeat
      a:=a+4;
      write(a, ' ');
  until (a = 100);
readln();
end.