题目: |
(注:本题初中生做)
Program ZX2017p5;
Var i,n:integer;
x,y:string;
begin
Repeat
Readln(n);
Until (n>=2) and (n<=9);
for i:= 1 TO n do
begin
x:=x+chr (48+i);
y:=chr(48+i)+y
end;
FOR i:= 1 TO n do
begin
writeln(copy (x, n-i+1, i), copy (y, 1, i))
end
end.
输入:4 输出:44 3443 234432 12344321
|