Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program revers;
- function revers(ch:word):word;
- begin
- revers:=10*(revers +ch mod 10);
- if ch>9 then
- revers:= revers(ch div 10,new)
- else revers:=new div 10;
- end;
- var ch:integer;
- begin
- readln(ch);
- writeln(revers(ch,0));
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement