Question

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

Answer 1

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.