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

Primary tabs

Submitted by alexander263 on Sun, 11/28/2021 - 13:06

Forums:

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

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

- - - - - -
- - - - - -
- - - - - -
- - - - - -

program project1;
var i,j,m,n:integer;

begin
  i:=0;
  j:=0;
  write('vvedite M: '); readln(m);
  write('vvedite N: '); readln(n);
  repeat
    i:=i+1;
    repeat
      j:=j+1;
      write('-');
    until(j>n-1);
    writeln();
    j:=0;
  until(i>m-1);
  readln();
end.
  • Log in to post comments
  • 1299 reads
vedro-compota's picture

vedro-compota

Sun, 11/28/2021 - 13:31 

  until(i>m-1);

-- переделать на 

until(i>m);

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

alexander263

Wed, 12/01/2021 - 16:27 

program project1;
var i,j,m,n:integer;
 
begin
  i:=1;
  j:=1;
  write('vvedite M: '); readln(m);
  write('vvedite N: '); readln(n);
  repeat
    i:=i+1;
    repeat
      j:=j+1;
      write('-');
    until(j>n);
    writeln();
    j:=1;
  until(i>m);
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 12/01/2021 - 18:14

засчитано

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