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

1

Ответы и объяснения

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