Дано число. определить чему равна сумма нечетных цифр в этом числе
vyyy73ozxnyb
2
18.07.2019 16:20
0
Другие вопросы по теме Информатика
сорин8888
01.04.2021 16:54
Ihop
16.08.2019 03:20
ЛехаФомин
17.05.2019 22:50
Камалия11
17.05.2019 22:50
lotosalla1
17.05.2019 22:50
niggaeasyreal
17.05.2019 23:00
yaroslavus
17.05.2019 22:05
Dementor112
17.05.2019 22:03
анна2259
17.05.2019 22:00
Популярные вопросы
- Культурную от 20 декабря 1993 г.3. Прочитайте текст и выполните задания.Стандартные...
2 - Волга - название, исток, течение (быстрое медленное), притоки, куда впадает,...
1 - 1.Найти произведение многочлена и одночлена: а). 5(a+b+c)б). -7(m-n+k)в)....
1 - Мәтіндік есептерді шығару. 2-сабақ Дамир банкке салым жасады, салымның жылдық...
1 - Чем отличаются корбюраторный и дизельный двигатель?...
2 - Відносно яких предметів автомобиля перебувають у русі?...
1 - 1. Аугсбургский религиозный мир между католическими и протестантскими кня-зьями...
3 - Помагите помагите помагите помагите помагите помагите помагите ...
2 - Написать эссена тему: «Чингисхан –великий завоеватель и основатель Монгольской...
3 - № 2. Определите сколько молекул содержат 15моль оксида углерода (IV)....
1
a,s: integer;
begin
readln(a);
s := 0;
while a >0 do
begin
if a mod 10 mod 2 <> 0 then
inc(s, a mod 10);
a := a div 10;
end;
writeln(s);
end.