Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

program sumchisla;

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

begin

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

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

readln(x);

a:=xdiv 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.