pascal语言中的几道程序输入一个二/三/四位数，输出其数字倒序

输入一个二/三/四位数，输出其数字倒序

麻烦了各位天才

二三四位数，看样子LZ还不会数组和字符串 你们那么写LZ哪看得懂。。。。

就读入一个整型变量

program LB;

var num:integer;

begin

readln(num);

while num<>0 do

begin

writeln(num mod 10);

num:=num div 10;

end;

end.

前面的一位搞的太复杂，一位没分类，还是看看我的吧

program dfdf; var l,i:longint; s:string; begin readln(s); l:=length(s); for i:=l downto 1 do write(s[i]); end.

program daoxu;

var

a[1..4],i:integer;

begin

for i:=1 to 4 do read(a[i]);

readln;

for i:=4 to 1 do write(a[i]);

end.

procedure rprint(a:integer); begin while a > 0 do begin write(a mod 10); a := a div 10; end; end; var i:integer; begin readln(i); rprint(i); readln; end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息