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

Program ynp2;

var x, x1, x2, x3; p: integer;

begin

Write (' введите трёхзначное число') ;

Read (x) ;

x1: x mod 100;

x3: x div 100;

Question

Дарья

30 ноября, 21:41

+1

Ответы (1)

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

Владиславка · Answer 1

X2: = (x div 10) mod 10;

sum:=x1+x2+x3; (Сумма)

mul:=x1*x2*x3; (Произведение)