Question

Найти сумму и произведение цифр случайного трехзначного числа

Answer 1

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.