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

Var number,a,b,c:integer;
begin
writeln('Введите трёхзначное число');
readln(number);
a:=number div 100;
b:=( number div 10) mod 10;
c:=number mod 10;
writeln(a,' - Первая цифра числа');
writeln(b,' - Вторая цифра числа');
writeln(c,' - Третья цифра числа');
writeln('Сумма цифр числа = ',a+b+c);
writeln('Произведение цифр числа = ',a*b*c);
end.

Answer 2

x2:+(x1+mod+10);+x1:+x1+div+10;+p:+x1+x2+x3;+WriteLn('Сумма цифр числа:',+p);+p:+x1*x2*x3;+WriteLn('Произведение цифр числа:',+p);+end.