Integer16. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).
Решение:
|
1 2 3 4 5 6 7 8 9 10 |
program Integer16; var A, Res: Integer; begin Write('Введите трёхзначное число: '); Readln(A); Res:=(A mod 10)*10 + ((A mod 100) div 10 )+ (A div 100)*100; //* Writeln('Число, полученное при перестановке цифр: ',Res); end. |
* (A mod 10) — Получаем единицы
(A div 100) — Получаем кол-во сотен
(A mod 100) div 10 — Получаем десятки
Другие задачи из раздела Integer можно посмотреть здесь.
Комментарии: