Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево. - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста решить задачу,если можно с объяснением Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Решение задачи: «Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.»
textual
Листинг программы
var a, b, a1, a2, a3 : integer; begin {ввод числа c проверкой...} repeat write('введите трёхзначное число: '); readln(a) until (a >= 100) and (a <= 999); {проверяем чтобы число было трёхзначным} {разложение на множители} a1 := a mod 10; {остаток от деления числа на 10 - правая цифра} a2 := (a div 10) mod 10; {делим на 10, берем целую часть, ее на 10 - берем остаток - средняя цифра} a3 := a div 100; {целая часть от деления на 100 - левая цифра} {вывод в обратном порядке} b := a1 * 100 + a2 * 10 + a3; write(b); readln end.