===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
for var i := 1 to n do
for var j := 1 to n do
if j > i then
Print(i)
else
Print(j);
Writeln
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
for var i := 1 to n do
begin
for var j := 1 to n do
if j > i then
Print(i)
else
Print(j);
Writeln
end;
end.