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