tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Для натурального числа
Для натурального числа a составить программу подсчёта в нём кол-во нечётных цифр . ))
anya2403
3 26.07.2019 14:50
0
Ответы
Яна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
31.08.2019 03:30
Двумерные массивы.pascal заполнить случайными значениями матрицу произвольного размера,вывести на экран.найти произведение сумм элементов нечетных столбцов матрицы....
sumanrahmatova
31.08.2019 03:30
Школьные знания.com задай вопрос из школьного предмета stelmah0 5 - 9 классы информатика 30+15 б на месте преступления были обнаружены четыре обрывка бумаги. следствие...
erenyeger2398
31.08.2019 03:40
Решить ! 1.устройство для демонстрации мультимедиа на большом экране. 2.устройство для вывода звуковой информации 3.другое название этого уст-ва- звуковая карта 4.первое...
didar6
21.12.2020 13:26
Максимально упростите выражение, воспользовавшись законами логики Буля Затем с таблиц истинности сравните ваше упрощённое выражение с исходным.(а∧¬d)∨(((¬c∧¬b)∨d)∧(c∨b))∨((¬d∨¬c)∧(c∨b))...
Дага72
21.12.2020 13:25
Какое словное форматирование было применено...
Ruslan812
21.12.2020 13:25
Упростить и сделать таблицу истинности...
jova20011p0bpf9
12.01.2021 18:37
1.Найдіть приклади значень текстових величин 2.Чим відрізняються значення символьного та рядкового типів?3.Як описати величини символьного та рядкового типів програмування?Що...
ааа512
12.01.2021 18:38
Значения вырaжения A0DC(16)+110(8)*11(16)-106(10)+10000(2)-500(10)+120(4) Вычислите в 10-чной системе счисления и результат вычисления переведите в 16-чную систему счисления...
таня44448
17.05.2019 12:41
Определите и прлнумеруйте очередность создание автооглавление ...
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;...
Популярные вопросы
3. «Атымтай Жомарт» әңгімесінің тақырыбын анықтаңыз. А. Адамгершілік,...
2
при окисненні азоту утворилося 3,36 Л нітроген (2) оксиду визначити...
3
После путешествия в Мексику, Бальмонт едет именно сюда?...
3
E Әжемнің ыдыстарыМәтін бойынша сөйлемдердің ретін анықта.А.р отбасы...
3
ОЧЕНЬ До ть дослідити функцію y = x^2 / 2(x-1)...
1
Приведите 2 примера использования кислорода...
2
Реши уравнение 5/8/1/2m-1/4-1/2=3/4...
2
А, В и С жидкости объемом 200 мл каждая имеют массы, соответственно...
1
3 2/5-2 1/4= 6 1/8+3=3/15•7/10•5/62 14/15:4 2/5•3\130 ...
1
8. Ақын жастарға бата бере отырып, олардан қандай үміт күтеді? Жыр...
3
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.