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.Выводим полученный результат
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.Выводим полученный результат