Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Мялан
02.04.2023 09:27 •
Информатика
Дано целое число n. определите количество нечётных цифр в данном числе. (pascal)
Показать ответ
Ответ:
Denaz
07.09.2020 17:44
//PascalABC.Net
var
n, k: integer;
begin
readln(n);
while n > 0 do begin
inc(k, n mod 2);
n := n div 10
end;
writeln('Количество нечетных: ', k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
stentani97
01.12.2022 22:19
Имеется два различных типа носителей информации: носитель типа а – с максимальным объемом записываемой на него информации 30 гбайт, типа в – 680 мбайт. для носителей типа в сделали...
mak57
01.12.2022 22:19
Дан массив c(m), m =30. расположить его элементы так, чтобы в начале шли положительные, а потом все остальные. исходный и переформированный массивы вывести на печать....
букет223
23.08.2022 14:18
Всистеме счисления с некоторым основанием число 65 записано как 1001. укажите это основание....
Smal1488
23.08.2022 14:18
Сколько значащих единиц содержит десятичное число 786 2-й системе счисления...
hrndo
23.08.2022 14:18
Какие компоненты компьютера участвуют в формировании общего индекса производительности? в каком диапазоне изменяется индекс производительности windows?...
vsviridov08p06zai
22.10.2021 07:26
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: пирожное & выпечка-3200 пирожное- 8700 выпечка-7500...
eva444786
13.02.2022 05:30
Задача:Робот-компостер проверяет билеты в автобусе.существует 3 типа билетов:1. по 3 рубля без места2. по 5 рублей с местом в случае выхожа другого пассажира3. по 10 рублей с...
Вова21123
24.08.2022 20:12
Для того чтоб закрыть тестовый процессор Word необходимо?...
WeReWolF47
01.04.2021 05:16
Если положить в кошелек треть денег,то получится 68 рублей...
skskanshhd
01.04.2021 05:16
За 6минут наташа сделала 12 пельменей,а мама-18 пельменей.за сколько времени,работая так же,они вместе сделают 100 пельменей?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
n, k: integer;
begin
readln(n);
while n > 0 do begin
inc(k, n mod 2);
n := n div 10
end;
writeln('Количество нечетных: ', k);
end.