Решаем задачи Абрамян на Паскале. Integer 12

Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Решение:

program Integer12;

var

A, Res: Integer;

begin

Write('Введите трёхзначное число: ');

Readln(A);

Res:=(A mod 10)*100 + ((A mod 100) div 10 )*10+ (A div 100); //*

Writeln('Выводим число на оборот : ',Res);

end.

* (A mod 10) — Получаем единицы

(A div 100) — Получаем кол-во сотен

(A mod 100) div 10 — Получаем десятки

Другие задачи из раздела Integer можно посмотреть здесь.