Сумма и произведение цифр случайного трехзначного числа
Сгенерировать случайное трехзначное число. Вывести на экран само число, сумму и произведение его цифр.
Пример выполнения программы
536
Сумма: 14
Произведение: 90
Исходный код программы на языке Паскаль
var
n: integer;
a,b,c: byte;
begin
randomize;
n := random(900) + 100;
writeln(n);
a := n div 100;
b := n div 10 mod 10;
c := n mod 10;
writeln('Сумма: ', a + b + c);
writeln('Произведение: ', a * b * c);
end.
Алгоритм решения задачи
- Вызов функции
random
с фактическим параметром 900 вернет случайное число от 0 до 899 включительно. - Если к этому числу прибавить 100, то получится случайное число от 100 до 999 включительно. В этот диапазон входят все существующие трехзначные числа.
- Выведем полученное трехзначное число на экран.
- Чтобы извлечь из числа цифру сотен, то есть первую (старшую) цифру числа, надо число разделить нацело на 100. Полученную цифру свяжем с переменной a.
- Чтобы получить среднюю цифру трехзначного числа, его сначала надо разделить нацело на 10. Тем самым мы избавимся от последней цифры числа. Потом надо найти остаток от деления на 10. В результате получим последнюю цифру двухзначного числа, которая была средней в исходном трехзначном. Полученную цифру присвоим переменной b.
- Единицы (третья цифра, младший разряд) извлекаются путем нахождения остатка от деления числа на 10. Эту цифру присвоим переменной c.
- Найдем сумму цифр числа, сложив значения переменных a, b и c. Выведем сумму на экран.
- Найдем произведение цифр числа, перемножив значения a, b и c. Выведем произведение на экран.