Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево. - 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.

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы