Mail.RuПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

Дано натуральное число n. Найти сумму нечетных цифр числа.

Ученик (51), на голосовании 2 года назад
Помогите пожалуйста нужно написать программу: в паскали, микро паскали и блок-схему нужно сделать .
Для кого это не составит труда, помогите!!! !
Дополнен 2 года назад
.ПРОГРАММЫ РАБОТЫ С НАТУРАЛЬНЫМИ ЧИСЛАМИ
Голосование за лучший ответ
LOL ну лови
program ALLES_KLAR;
var
n, i, sum :integer;
j: integer;
begin
writeln('Введите число'); readln(n);
while n <> 0 do begin
j := n mod 10;
if j mod 2 <> 0 then begin
sum:= sum + j;
end;
n:= n div 10;
end;
writeln(sum);
end.
Похожие вопросы
Также спрашивают