Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Hackerywka
16.07.2020 12:50 •
Информатика
Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1
Показать ответ
Ответ:
Locko3
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 оценок)
Популярные вопросы: Информатика
ЧеПацаныАниме1
13.01.2021 05:50
Трёхзначное число, записанное в системе счисления с основанием 3, при перестановке крайних цифр становится числом, выражающим то же количество, но уже в системе счисления с...
азат61
27.02.2020 08:17
Когда в школе объявили день вежливости каждый мальчик из 5 а класса поздоровался за руку с каждой девочкой из своего класса всего при этом было 77 сколько учеников в пятом...
КЕКАke
20.07.2021 08:58
Составьте блок-схему решения задачи. В прямоугольном треугольнике известны длина катета А см и катета В см. Найдите длину гипотенузы. ...
chuvataeva
27.01.2020 21:46
Напишите программу которая выводит на экран таблицу степеней тройки (от нулевой до десятой)...
grmej
02.01.2023 20:11
.Сопротивление нихромовой спирали электроплитки равно R, а длина в вытянутом состоянии 2l . Определить площадь поперечного сечения спирали....
stockmen
04.08.2021 08:41
Прочитай текст. Как можно озаглавить этот текст?О семье.Семья – ячейка общества.В семье нас любят.Крепкая семья....
Killer3D
18.11.2022 17:14
оксид бария обладает свойствами1)основными2)кислотными3)амфотерными...
maga20082
18.11.2022 17:14
Choose the correct words to complete the sentences. If both are correct, explain thedifference in meaning.1 Queue / Queuing in shops really frustrates me2 Everyone saw me argue...
СашаМолорик
17.07.2020 08:29
Суреттерді салыстырыңдар Берілген суреттердің айырмашылығы мен ұқсастығын табыңдар.1-сурет. Қола дәуірі2-сурет. Темір дәуірі өтінемін керек көмектесіндершң...
Polyak56
09.11.2022 05:52
Докажите, что если точка К лежит на стороне АС прямоугольного треугольника МАС (РА = 90°), то МК МА Решение полностью...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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