Найти в числе число единиц, число десятков, сумму цифр, произведение цифр - Pascal ABC
Формулировка задачи:
Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр , произведение его цифр
Решение задачи: «Найти в числе число единиц, число десятков, сумму цифр, произведение цифр»
textual
Листинг программы
Readln(n); {100..999} Writeln(n mod 10); Writeln((n div 10) mod 10); Writeln((n div 100)+((n div 10) mod 10)+(n mod 10)); Writeln((n div 100)*((n div 10) mod 10)*(n mod 10));
Объяснение кода листинга программы
- Readln(n); {100..999} - считываем число от пользователя в переменную n
- Writeln(n mod 10); - выводим остаток от деления числа n на 10
- Writeln((n div 10) mod 10); - выводим остаток от деления числа n на 10
- Writeln((n div 100)+((n div 10) mod 10)+(n mod 10)); - выводим сумму цифр числа n
- Writeln((n div 100)((n div 10) mod 10)(n mod 10)); - выводим произведение цифр числа n