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

Question

Информатика

Каллиник

24 января, 08:44

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

+3

Ответы (1)

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

Николка · Answer 1

Var

x:integer;

begin

Write ('x=') ; Read (x) ;

x:=Abs (x) ; { вдруг число отрицательное }

Writeln ('Сумма цифр числа равна ', x div 10 + x mod 10) ;

Writeln ('Произведение цифр числа равно ', (x div 10) * (x mod 10))

end.

Пример

x=-73

Сумма цифр числа равна 10

Произведение цифр числа равно 21