Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ismailov34667
01.06.2021 10:43 •
Информатика
Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1
Показать ответ
Ответ:
1234567890ваня
14.08.2020 19:45
Var n,k:integer;
begin
write('n = ');
readln(n);
k:=0;
while n>0 do
begin
if n mod 10 = 1 then k:=k+1;
n:=n div 10;
end;
writeln('k = ',k);
end.
Пример:
n = 3191
k = 2
0,0
(0 оценок)
Популярные вопросы: Информатика
manya48
13.03.2023 00:57
Выбери верно заданный диапазон. 9:57 A9:57 A9:A57 A9^A57 9A:57A...
andreyzher777
13.05.2021 19:25
Определите функции инструментов и заполните таблицу...
sonykit2006
15.07.2021 10:12
2основных инструмента которые используются при создание гипертекстового документа ? а)гиперссылка б)закладка в)все ответы верные г)нет правильного ответа...
мединалуна
19.05.2020 08:02
Укажи, какой из эффектов перехода к 2-му слайду установлен в данной презентации! новости шашки вертикальные в форме ромба уголки вправо-вниз вертикальная панорама наружу случайные...
AnnA12Demidenko
12.07.2021 16:38
Средняя скорость чтения для учащихся 9-11 классов составляет 160 слов в минуту. подсчитайте, какое количество информации они перерабатывают за 5 часов непрерывного чтения, если средняя...
Illya227
12.07.2021 16:38
Втрехзначном числе х зачеркнули 1 цифру.когда оставшиеся число умножили на 10,а произведение сложили с первой цифрой числа х,то получилось 564.найти х. в pasсal....
voborocha
13.08.2021 11:36
Дана действительная матрица размером n x m. преобразовать эту матрицу, поэлементно вычитая значение последней строки из значений всех ее строк, кроме последней. на си! : )...
влада12342
28.04.2020 10:33
Задача на идентификацию идеальной популяции. Задача 1. В одной популяции имеется три генотипа по аутосомному гену в соотношении 9 АА : 6 Аа : 1 аа. Находится ли данная популяция...
тима156
23.06.2021 21:15
Будьте добры , и получите достойные ...
pMatbq
08.06.2022 06:44
Олена Теліга. Візитка автора. Информация о авторе: Имя, Годы жизни, Семья, Образование, Род деятельности (профессия), Литературное наследие (произведения написанные автором)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n = ');
readln(n);
k:=0;
while n>0 do
begin
if n mod 10 = 1 then k:=k+1;
n:=n div 10;
end;
writeln('k = ',k);
end.
Пример:
n = 3191
k = 2