Question

Дано трехзначное натуральное число А. Получить новое натуральное число В, который являлся бы перевёртышём числа А (например, А=123, тогда В=321). Помогите с решением пожалуйста.

Answer 1

Var a: string;
    i, b: integer;
begin
     readln(b);
     a := inttostr(b);
     b := 0;
     for i := length(a) downto 1 do
         b := b * 10 + strtoint(a[i]);
     writeln(b);
end.

Я люблю строки =)