28 lines
476 B
Text
28 lines
476 B
Text
proc width(word n) word:
|
|
word w;
|
|
w := 0;
|
|
while n>0 do
|
|
w := w + 1;
|
|
n := n / 10
|
|
od;
|
|
w
|
|
corp
|
|
|
|
proc floyd(word rows) void:
|
|
word n, row, col, maxno;
|
|
maxno := rows * (rows+1)/2;
|
|
n := 1;
|
|
for row from 1 upto rows do
|
|
for col from 1 upto row do
|
|
write(n : 1+width(maxno - rows + col));
|
|
n := n+1
|
|
od;
|
|
writeln()
|
|
od
|
|
corp
|
|
|
|
proc main() void:
|
|
floyd(5);
|
|
writeln();
|
|
floyd(14)
|
|
corp
|