ЯЗЫК PASCAL ABC. Ввести с клавиатуры натуральное трехзначное десятичное число. Вычислить и вывести на экран число,полученное путем переворота цифр исходного числа. Например: для 253 получить 352

Предыдущий
вопрос Следующий
вопрос

program ReverseNumber;

va
number, reversedNumber, remainder: integer;

begi
writeln('Enter a three-digit natural number: ')
readln(number);

reversedNumber := 0;

remainder := number mod 10
reversedNumber := reversedNumber + remainder * 100
number := number div 10;

remainder := number mod 10
reversedNumber := reversedNumber + remainder * 10
number := number div 10;

reversedNumber := reversedNumber + number;

writeln('Reversed number is: ', reversedNumber)
end.