Программа паскаль, найдите сумму и произведение цифр числа 224 S: 3+2+4=10 p: 3*2*4=24

Question

Программа паскаль, найдите сумму и произведение цифр числа 224
S: 3+2+4=10
p: 3*2*4=24

Answer 1

program sumchisla;

var x,a,b,c,s,p: integer;

begin

writeln('Программа нахождения суммы цифр числа');

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

readln(x);

a:=x div 100;

  b:=x mod 100 div 10;

  c:=x mod 10;

  s:=a+b+c;

p:=a*b*c;

  writeln ('s= ', s);

writeln ('p= ', p);

end.