Дано целое двузначное число x. Составьте программу вычисления суммы и произведения цифр числа х. Значение x ввести с клавиатуры

Question

Информатика

Ерофей

6 августа, 06:54

Дано целое двузначное число x. Составьте программу вычисления суммы и произведения цифр числа х. Значение x ввести с клавиатуры

+4

Ответы (1)

Знаете ответ?

Степан · Answer 1

var

n, p, s, i: integer;

begin

s : = 0; p : = 1;

readln (n) ;

while n > 0 do

begin

i : = n mod 10;

s : = s + i;

p : = p * i;

n : = n div 10;

end;

writeln ('Сумма: ', s, ' Произведение:', p) ;

end.