Question

free pascal简单问题改错

颠倒一个四位数
如输入1954输出4591
现在我自学编写
var a：integer；
begin
read（a);
writeln(1000*(a mod 10)+100*((a mod 100) div 10)+10*((a mod 1000) div 100)+(a div 1000)）;
end.
目测漏洞百出求改错

Answer 1

//主要是全角符号和半角符号混淆
var a:integer;
begin
readln(a);
writeln(1000*(a mod 10)+100*((a mod 100) div 10)+10*((a mod 1000) div 100)+(a div 1000));
end.