1. Информатика
  2. Для натурального числа

Для натурального числа a составить программу подсчёта в нём кол-во нечётных цифр . ))

anya2403 anya2403    3   26.07.2019 14:50    0

Ответы
Яна00311 Яна00311  03.10.2020 13:34
Var a, s,m: integer;
beginread(a); 
while a>0 do begin 
m:=a mod 10; 
if m mod 2 <>0 then s:=s+1; 
a:=a div 10; 
end; 
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
мили241 мили241  31.08.2019 03:30
Двумерные массивы.pascal заполнить случайными значениями матрицу произвольного размера,вывести на экран.найти произведение сумм элементов нечетных столбцов матрицы....
sumanrahmatova sumanrahmatova  31.08.2019 03:30
Школьные знания.com задай вопрос из школьного предмета stelmah0 5 - 9 классы информатика 30+15 б на месте преступления были обнаружены четыре обрывка бумаги. следствие...
erenyeger2398 erenyeger2398  31.08.2019 03:40
Решить ! 1.устройство для демонстрации мультимедиа на большом экране. 2.устройство для вывода звуковой информации 3.другое название этого уст-ва- звуковая карта 4.первое...
didar6 didar6  21.12.2020 13:26
Максимально упростите выражение, воспользовавшись законами логики Буля Затем с таблиц истинности сравните ваше упрощённое выражение с исходным.(а∧¬d)∨(((¬c∧¬b)∨d)∧(c∨b))∨((¬d∨¬c)∧(c∨b))...
Дага72 Дага72  21.12.2020 13:25
Какое словное форматирование было применено​...
Ruslan812 Ruslan812  21.12.2020 13:25
Упростить и сделать таблицу истинности...
jova20011p0bpf9 jova20011p0bpf9  12.01.2021 18:37
1.Найдіть приклади значень текстових величин 2.Чим відрізняються значення символьного та рядкового типів?3.Як описати величини символьного та рядкового типів програмування?Що...
ааа512 ааа512  12.01.2021 18:38
Значения вырaжения A0DC(16)+110(8)*11(16)-106(10)+10000(2)-500(10)+120(4) Вычислите в 10-чной системе счисления и результат вычисления переведите в 16-чную систему счисления...
таня44448 таня44448  17.05.2019 12:41
Определите и прлнумеруйте очередность создание автооглавление ​...
adrien3000 adrien3000  17.05.2019 12:37
Что будет на экране после выполнения программы, если переменная b равна: а)7 б)25 program a; var b,c: integer; begin readln(b); if b 25 then c: =b*b else c: =b mod 10;...

Популярные вопросы