- 596 名前：デフォルトの名無しさん [2007/10/04(木) 02:44:32 ]
- >>585の2個目
program PR0231(input,output);
var D,X,S:integer;
begin
read(D);
X:=D;S:=0;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
X:=X div 10;
S:=10*S+X mod 10;
writeln(D,S);
end.
これで出ないのはなぜ、、、。
