Найти сумму и произведение цифр случайного трехзначного числа
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.