Сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр.
Алгоритм решения задачи:
-
random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. охватывает все трехзначные числа.
-
Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.
-
Для получения цифры десяток можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.
-
Единицы извлекаются путем нахождения остатка от деления числа на 10.
Программа на языке Паскаль:
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.