Question

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

Answer 1

Var a,b:byte;
    num:integer;
    
begin
  write('Введите двухзначное целое число ');
  readln(num);
 
  //если число отрицательное - убираем знак
  num := abs(num);
 
  //десятки числа
  a:=num div 10;

  //единицы числа
  b:=num mod 10;

  writeln('Сумма цифр ', a , ' и ', b, ' = ', a+b);
  writeln('Произведение цифр ', a , ' и ', b, ' = ', a*b);
end.

Answer 2

П0 1 0 / {x} 1 0 * П1 ИП0 1 0 / [x] П1 ИП0 + С/П ИП0 ИП1 * С/П