Вопрос, который вызвал трудности
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.
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.