11 lines
168 B
ObjectPascal
11 lines
168 B
ObjectPascal
var n,m,a:integer;
|
|
begin
|
|
write('Ââåäèòå ÷èñëî: ');
|
|
readln(n);
|
|
while n>0 do begin
|
|
a:=n mod 10;
|
|
n:=n div 10;
|
|
m:=m*10+a;
|
|
end;
|
|
write('×èñëî â îáðàòíîì ïîðÿäêå - ', m);
|
|
end. |