program mhy2(input,output);vara,n:integer;beginread(n);while n<>0 dobegina:=n mod 10;write(a);n:=n div 10;end;end.while后加begin end这个只能在integer范围内。你可以使用字符串处理更好。
....LZ内想把你们家的电脑害惨吗.....
你按f7跟踪一下看看你的方法麻烦了点，把数字用字符串读入方便很多。program ly;var L,i:longint; S:string;begin assign(input,' '); reset(input); assign(output,'2.out'); rewrite(output); readln(s); L:=length(s); for i:=L to 1 do write(s[i]); writeln; close(input); close(output);end.
while n<>0 do begin a:=n mod 10 n:=n div 10 end;begin和end；少打了
答：详情>>
