pascal语言的问题,聪明人的问题
pascal语言的问题,聪明人的问题
日期:2006-12-15 19:48:06 人气:1
1.……
2.
begin
a:=1;
b:=12;
c:=123;
writeln(a); writeln(b); writeln(c); writeln(a:0:3); writeln(b:0:3);writeln(c:0:3);
end;
3.
begin
read(a);
for i:=1 to 4 do
begin
write(a mod 10);
a:=a div 10;
end;
end.