Написать программу к задаче: Дано число. Найти сумму и произведение его цифр.

Question

Информатика

Гемина

8 января, 08:25

Написать программу к задаче: Дано число. Найти сумму и произведение его цифр.

+3

Ответы (1)

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

Киля · Answer 1

Program n1;

var n, sum, p: integer;

begin

readln (n) ;

sum:=0;

p:=1;

while n0 do

begin

sum:=sum+n mod 10;

p:=p * (n mod 10) ;

n: = n div 10;

end;

writeln ('сумма цифр: ', sum) ;

write ('произведение: ', p) ;

end.