Question

Найдите сумму цифр 3-х значного числа ​

Answer 1

var s,n: integer;

begin

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

readln(n);

s:=n mod 10+ n div 100+n div 10 mod 10;

write('сумма цифр: ',s);

end.