ЭИ
Эмиль Ибрагимов
" Складіть програму обчислення суми цифр цілого трьохзначного числа. "
Мне короче надо разбить число из 3 цифр на 3 отдельные цифры... На пасхале... с помощь Mod и Div помогите плз )
Мне короче надо разбить число из 3 цифр на 3 отдельные цифры... На пасхале... с помощь Mod и Div помогите плз )
readln(n)
s:=0;
for i:=1 to 3 do
begin
s:=s + n mod 10;
n:=n div 10;