урок 13.1 задача 9

урок 13.1

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:

11......NN}M раз
program delal.gleb!;
var i,j,l:integer;
begin
  writeln('видите 2 любых числа через enter(целых) ');
  readln(i);
  readln(j);
  repeat
    for l:=1 to i do
      write(l,' ');
    writeln();
    j:=j-1;


  until(j=0) ;
  readln();
end.
              
vedro-compota's picture

переписать на внешний for

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

isaac_fan's picture

program delal.gleb!;
var i,j,l:integer;
begin
  writeln('видите 2 любых числа через enter(целых) ');
  readln(i);
  readln(j);
  for l:=1 to i do
  repeat
    for l:=1 to i do
      write(l,' ');
    writeln();
    j:=j-1;


  until(j=0) ;
  readln();
end.                         
vedro-compota's picture

 for l:=1 to i do
  repeat
    for l:=1 to i do

-кентавр из циклов?
код явно не запускал

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

isaac_fan's picture

var i,j,l:integer;
begin
  writeln('видите 2 любых числа через enter(целых) ');
  readln(i);
  readln(j);
  for j:=j downto i do
    repeat
    l:=l+1;
    writeln(j,' ');
    writeln();

    until(l=i) ;
  readln();
end.