Сгенерировать случайное трехзначное число. Вывести на экран само число, сумму и произведение его цифр.
Алгоритм решения задачи:
random
с фактическим параметром 900 вернет случайное число от 0 до 899 включительно.Программа на языке Паскаль:
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.
Пример выполнения программы:
536
Сумма: 14
Произведение: 90