Question

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

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