0
已采纳
0
var
n:longint;
begin
readln(n);
if n=1 then writeln('1');
if n=2 then writeln('12');
if n=3 then writeln('123');
if n=4 then writeln('1234');
if n=5 then writeln('12345');
if n=6 then writeln('123456');
if n=7 then writeln('1234567');
if n=8 then writeln('12345678');
if n=9 then writeln('123456789');
if n=10 then writeln('123456790');
end.
pascal 可以吗
0
0