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

Question

Информатика

Валюха

25 сентября, 00:02

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

+4

Ответы (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.