Урок 13.2 Задача 1

Primary tabs

Submitted by mrn123 on Fri, 09/09/2022 - 17:33

Forums:

Урок 13.2 Задача 1

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

program  u132z1;
var m , n: integer;
begin
  m:=1;
  repeat
    begin
      n:=1;
        repeat
          write('- ');
          n:=n+1;
        until (n>8) ;

    end;
      m:=m+1;
      writeln();
  until (m>8);

  readln();
end.
  • Log in to post comments
  • 583 reads
vedro-compota's picture

vedro-compota

Sun, 09/11/2022 - 15:37 

  repeat
    begin
      n:=1;
        repeat
          write('- ');
          n:=n+1;
        until (n>8) ;
 
    end;
      m:=m+1;
      writeln();
  until (m>8);

есть лишние begin end

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