高校问答谢霆锋张柏芝离婚真相:帮我解决一个pascal题: 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
来源：百度文库 编辑：高校问答 时间：2024/05/06 04:18:56
program xxxx;
var g,s,b,q,a,c,d,e,f:real;
begin
read(g,s,b,q);
a:=(q*1000+b*100+s*10+g) div 1000;
c:=(b*100+s*10+g) div 100;
d:=(s*10+g) div 10;
e:=(s*10+g) mod 10;
f:=a*1000+c*100+d*10+e;
writeln(f);
end.
看看我程序的运行结果,写出真正的程序
var g,s,b,q,a,c,d,e,f:real;
begin
read(g,s,b,q);
a:=(q*1000+b*100+s*10+g) div 1000;
c:=(b*100+s*10+g) div 100;
d:=(s*10+g) div 10;
e:=(s*10+g) mod 10;
f:=a*1000+c*100+d*10+e;
writeln(f);
end.
看看我程序的运行结果,写出真正的程序
不用MOD和DIV运算也能完成
var st:string;
i:integer;
begin
readln(st);
for i:=length(st) downto 1 do
write(st[i]);
writeln;
end.
1、声明一个integer型变量n,输入n
2、判断n是否在1000-9999之间，不在则退出程序
3、a=n div 1000;b=(n mod 1000) div 100;c=(n mod 100) div 10;d=n mod 10;
4、依次输出d,c,b,a即可。