Question

Дано 3-х значное число (х). Составить программу для вычесления суммы и произведения цифр числа
Program ynp2;
var x, x1, x2, x3; p: integer;
begin
Write( ' введите трёхзначное число');
Read(x);
x1: x mod 100;
x3: x div 100;

Answer 1

x2:=(x div 10) mod 10;
sum:=x1+x2+x3; (Сумма)
mul:=x1*x2*x3; (Произведение)