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