нужна ваша решение на языке паскаль
На обработку поступает натуральное число, не превышающее 10^9. Нужно написать программу, которая выводит на экран сумму нечетных цифр числа, которые делятся на 3. Если в числе нет таких цифр, требуется на экран вывести «NO».
Айым200411
3
01.05.2020 19:41
12
Другие вопросы по теме Информатика
Eva27092006
14.06.2019 01:40
Nartez
23.09.2020 06:53
Юль4ик11
23.09.2020 06:52
alicemuhametp0aof9
23.09.2020 06:52
Natalia10000
23.04.2020 17:59
swetik101
23.04.2020 17:59
elinanagimova
23.04.2020 17:59
avgbb
23.04.2020 17:59
Ksu1ma
23.04.2020 17:59
gabiko82
23.04.2020 17:59
Популярные вопросы
- Решите ! 1)8a^6b^3/3c : 4a^3/bc^3= 2)18x^2y*(2x/3y^3)^2= 3)10mn:...
3 - Герои каких произведений поняли, что доброта, верность, мужество...
3 - Мама на даче собрала7кг огурцов с грядки это на4кг меньше чем...
1 - 1)через точку а окружности проведены диаметр ас и две хорды ав...
1 - Как проверить в слове звонки на букву и...
1 - Каким образом можно определить какая из почв наиболее плодотворная...
2 - Атмосферное давление на вершине горы по сравнению с его значением...
1 - Впервый день туристы пути. во второй-50% оставшегося пути. какое...
1 - Как разные сословия отреагировали на смерть павла 1? (не с майла...
2 - Вокружность,диаметром 10 корней 2,вписан шестиугольник,у которого...
3
program z1;
var a,s: longint;
begin
write ('Введите число: ');
readln(a);
s:=0;
repeat
if (a mod 10 mod 2 = 1) and (a mod 10 mod 3 = 0) then s:=s+a mod 10;
a:=a div 10
until a=0;
if s = 0 then write('NO')
else writeln(s)
end.