Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано

108

242

Посмотреть ответы 2

Ответы на вопрос:

loko177

Другие предметы

4,8(85 оценок)

uses crt;
var
   a,b:integer;

function asd(x,i:integer) :integer;
begin
   if x=0 then asd:=-b
   else begin
      if x div 10 <>0 then
         b:=b +i*10+ x mod 10;
      asd:=(i*10+ x mod 10) + asd(x div 10,i*10+ x mod 10 )
   end;
end;

begin
   clrscr;
   b:=0;
   readln(a);
   writeln(asd(a,0));
   readkey
end.