Программа:вводишь число и он выводит тебе его перевертыш в паскале

Question

Очень надо!ТОЛЬКО ПО ПРОЩЕ ПРОГРАММУ НАДО А НЕ СВЕРХ ГЕНИАЛЬНУЮ!

Новиков Роман · Accepted Answer

t := 1 
while( n > 0 ) do begin s := s + t * (n mod 10); n := n div 10; t := t * 10; end;

Towards Todeath · Answer

program ainv; 
uses crt; 
var a,b,c,n,s:Integer; 
begin 
clrscr; 
writeln('inversiya chisla'); 
writeln('----------------'); 
writeln; 
write('vvesti celoe chislo -->'); readln(n); 
 s:=0; 
while n>0 do begin 
s:=s*10+n mod 10; 
n:=n div 10; 
end; 
writeln(s); 
writeln('konec zadachi'); 
readkey; 
end.

Ирина · Answer

uses crt; 
var ch,new:longint; 
procedure pr_rec(ch:longint;var new:longint); 
begin 
if ch<>0 then 
 begin 
 new:=new*10+(ch mod 10); 
 pr_rec(ch div 10,new); 
 end; 
end; 
begin 
clrscr; 
write('ch='); 
readln(ch); 
pr_rec(ch,new); 
writeln(new); 
readln 
end.

Масянька Хвостова · Answer

Всего делов то: 
var N : Word; 
begin 
Write('N = '); ReadLn(N); 
Write('перевёртыш = '); repeat Write(N mod 10); N := N div 10; until N = 0; WriteLn; 
end.