Question

Найдите сумму цифр трехзначного числа.
решите пожалуйста
очень нужно !!

Answer 1

program fofgogjoj;
var
n:integer;
begin
Writeln('Введите трёхзначное число');
Readln(n);
N:=(n div 100)+((n div 10) mod 10)+(n mod 10);
Writeln('Сумма цифр равна: ',n);
end.