Переменная Х содержит трехзначное целое число. подсчитать сумму цифр этого числа

1

Ответы и объяснения

  • Sky09
  • профессор
2013-05-23T13:42:51+04:00

Program abc;

var x,a,b,c: integer;

begin

writeln('vvedite chislo');

readln(x);

a:=x div 100;

b:=x mod 100 div 10;

c:=x mod 10;

writeln(a+b+c);

end.