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

@Реал · Регистрация: 10.04.2012

Студворк — интернет-сервис помощи студентам

Определите число, получаемое выписыванием в обратном порядке цифр заданного натурального числа. Используйте рекурсивную функцию.

Комментарий модератора

Реал, вновь обращаю ваше внимание на правила форума:
1) для размещения тем выбирайте один из тематических разделов, благо их 4 на выбор.
2) не создавайте дублей тем, поднимайте старую тему сообщением "актуально".
Это последнее предупреждение.

@NurlashKO · 12.10.2012, 12:29

Pascal

var
    x, a :longint;
 
procedure rev(x :longint);
begin
    if (x <> 0) then begin
        a := a * 10 + x mod 10;
        rev(x div 10);
    end;
end;
 
begin
    read(x);
    rev(x);
    write(a);
end.

	12.10.2012, 12:29

Опции темы

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

Решение