Задача 3 Урок 12.2

Primary tabs

Submitted by studentmedic on Tue, 05/17/2022 - 13:08

Forums:

Задача 3 Урок 12.2

  • У вас есть программа, использующая цикл while:
    ?
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    var
       i: integer;
    begin
      i:=1;
      while i<=100 do
      begin
        write(i, ' ');
        i:=i+5;
      end;
     
      readln();
    end.
    • Объясните что делает эта программа (что будет выведно на экран и почему)
    • Перепешите её с помощью цикла repeat/until
    • Перепешите её с помощью цикла for

    • На экран будут выводиться цирфы от 1 до 100 с шагом 5

    program Variant2;
var b: integer;
begin
  b:= 1;
  repeat
    write(b, ' ');
    b := b + 5;
  until (b > 100);

end.     
    program Variant2;
var b, i: integer;
begin
  b:= 1;
  for i:= 1 to 20 do
    begin
    write(b, ' ');
    b:= b + 5;
    end;
end.
    • Log in to post comments
    • 697 reads
    vedro-compota's picture

    vedro-compota

    Wed, 05/18/2022 - 20:22 

      for i:= 1 to 20 do
    begin
    write(b, ' ');
    b:= b + 5;
    end;

    --переписать только с i

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

    studentmedic

    Wed, 06/01/2022 - 16:30 

    program Variant2;
var i: integer;
begin

  for i:= 1 to 20 do
    begin
    if ((i mod 5) = 0) then
      write(i, ' ');
    end;
end.