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

Primary tabs

Submitted by testok on Tue, 10/13/2020 - 09:42

Forums:

Решение задачи 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.
  • Log in to post comments
  • 1568 reads
vedro-compota's picture

vedro-compota

Tue, 10/13/2020 - 14:15

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

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

testok

Fri, 10/16/2020 - 01:55 

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

testok

Fri, 10/30/2020 - 05:24 

program Project11;
var a: integer;
 begin
 for a:=1 to 100 do
   if((a mod 4) = 0) then
    write(a, ' ');
 readln();
end.