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

var

d,n:integer;

begin

readln(d);

n:=(d div 100) + ((d div 10) mod 10) + (d mod 10);

writeln(n);

end.

Написано на Паскале.

Пояснение:

1. Задаем целочисленные переменные

2.Считываем число

3.Находим по алгоритму сумму цифр числа

4.Выводим полученный результат