Question

pascal语言程序的表示

1.输出两个整数，输出它们的平方及平方根。
2.输出一个三位整数，把它的各位数字倒序输出。

Answer 1

1:
program t1;
var a,b:longint;
begin
read(a,b);
writeln(a*a:3,b*b:3,sqrt(a):3:3,sqrt(b):3:3);
end.
2
program t2;
var ge,shi,bai,a,b:integer;
begin
readln(a);
ge:=a mod 10;
bai:=a div 100;
shi:=a div 10 mod 10;
b:=bai+shi*10+ge*100;
writeln(b);
end.
把它复制到.txt文本上，然后将.TXT改成.pas就行了。
希望对你有帮助！

Answer 2

1.
var a,b:longint
begin
readln(a,b); writeln(a*a,' ',b*b,' ',sqrt(a):0:3,' ',sqrt(b):0:3);
end;
2.
var a:longint;
begin
readln(a); writeln(a mod 10,a div 10 mod 10,a div 100);
end.

追问

longint可换为integer吗？
还有，1.中“平方”编一条，“平方根”编一条，不要合起来编。

追答

你妹！
不说什么了……
初学者的话好好看书，这种问题……
算是忠告吧，以后integer就不要用了，统一用Longint，有好处的

Answer 3

1、
var a,b:longint;
begin
read(a,b);
writeln(sqr(a),' ',sqr(b));
writeln(sqrt(a),' ',sqrt(b));
end.
2、
var s:string;
i:longint;
begin
read(s);
for i:=3 downto 1 do write(s[i]);
end,

Answer 4

1.
program ex1(input,output);
var
a,b:longint;
begin
writeln(sqr(a),' ',sqrt(a));
writeln(sqr(b),' ',sqrt(b));
end.
2.
program ex2(input,output);
var
a,b,c,d:longint;
begin
read(a);
b:=a div 100;
c:=(a-b*100) div 10;
d:=a mod 10;
a:=d*100+c*10+b;
write(a);
end.