Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
псдрпл
01.03.2021 09:02 •
Информатика
Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1
Показать ответ
Ответ:
julealeo
07.10.2020 06:10
Var a,k:integer;
begin
readln(a);
k:=0;
while a>0 do
begin
if a mod 10 = 1 then k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
31815
k = 2
0,0
(0 оценок)
Популярные вопросы: Информатика
kuznetsovapoli
31.05.2023 06:47
Сколбко секунд понадабится модему со скоростью 14400 бит с для передачи длиной 225 кбайьа...
singarella123
14.01.2020 16:18
Напишите программу, которая выводит первое слово переданной её символьной строки. слово – это последовательность непробельных символов, ограниченная пробелами или концами строки....
molonchik
30.03.2022 17:44
Максимальное 6-значное семеричное нужно!...
кошИчкаНЕКО
13.08.2021 19:10
Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. каков информационный объем текста? ?...
Penb
27.10.2022 22:04
Дз: перевести числа 12, 23 и 45 в двоичную систем...
Mишутка9887
11.10.2022 14:29
Дано двузначное число a. напишите программу определения: является ли сумма его цифр двузначным числом; превышает ли сумма его цифр число x, которое вводится дополнительно; кратна...
aiha4567
30.03.2023 14:35
Какая строка получится в результате применения ниже программы к строке, состоящей из 84 единиц? начало пока нашлось (11111) заменить (222, 1) заменить (111, 2) конец пока конец...
mansurislamov
30.03.2023 14:35
Существует ли позиционная система счисления, в которой для записи чисел используется ровно одна цифра?...
danil1337Elit
03.03.2023 14:22
Текст составлен и с использованием алфавита мощностью 64 символа и содержит 100 символов . каков информационный обьем текста...
Raphael1111
14.05.2023 22:12
Решить : для передачи по каналу связи сообщения, состоящего только из букв а, б, в, г, решили использовать неравномерный по длине код: а=1,б=000, в=001. как нужно закодировать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
k:=0;
while a>0 do
begin
if a mod 10 = 1 then k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
31815
k = 2