Пожалуйста, напишите программу Ввести два естественных числа N и M .

Пожалуйста, напишите программку
Ввести два естественных числа N и M . Если M gt; N , то вывести
M N строк, в каждой строке выводятся числа от N до M число раз,
соответствующее выводимому числу. К примеру, для N = 3 и M = 6:
3 3 3
4 4 4 4
5 5 5 5 5
6 6 6 6 6 6

Задать свой вопрос
1 ответ
Var m,n,i,j:longint;
begin
readln(n,m);
if m gt; n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт