Решение задачи №9 из главы 13.1

Решение задачи №9 из главы 13.1

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

var n, m: integer;
begin
  writeln('vvedite celoe chislo: m');
  readln(m);
  n := 1; // начальное значение для счетчика внешнего цикла
  while (n <= m) do // условие для внешнего цикла
    begin
        for n := 1 to m do // выводим первую строку m раз
          write(n, ' ');
          writeln(' ');
        for n := 1 to m do // выводим вторую строку m раз
          write(n, ' ');
    n:=n+1; // увеличиваем значение счетчика внешнего цикла
    end;
    readln();
end. 
vedro-compota's picture

вложенный цикл должен быть один

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

gani84's picture

var  m, i: integer;
begin
  writeln('vvedite celoe chislo M');
  readln(m); //вводим число ограничитель
  for i:=1 to m do // внешний цикл
      write(i, ' '); // выводим первую строку М раз
   begin
      writeln(); // переносим строку
      for i:=1 to m do // внутренний цикл
          write(i, ' ');// выводим вторую строку М раз
   end;
  readln();
end. 
vedro-compota's picture

сейчас тут циклы не вложенные, а просто независимые. Решение не верно

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

gani84's picture

var i, j, m: integer;
begin
writeln('vvedite celoe chislo M');
readln(m); //вводим число ограничитель
begin
  for i := 1 to 2 do //
    begin
      for j := 1 to m do //
        write(j, ' ' );
      writeln(); // переносим строку
    end;
end;
   readln();
end.    
vedro-compota's picture

Матрица должна быть размером M на N, а не 2 на N как у вас

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

gani84's picture

var i, j, m, n: integer;
begin
writeln('vvedite celoe chislo M');
readln(m); //вводим число ограничитель  внешнего цикла
writeln('vvedite celoe chislo N');
readln(n); //вводим число ограничитель вложенного цикла
begin
  for i := 1 to m do //
    begin
      for j := 1 to n do //
        write(j, ' ' );
      writeln(); // переносим строку
    end;
end;
   readln();
end. 
vedro-compota's picture

решение засчитано

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