Question

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

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.