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

Question

Информатика

Силантий

5 января, 07:19

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

+2

Ответы (1)

Знаете ответ на вопрос?

Петринка · 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.