Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1
наташа978
1
10.09.2019 21:40
4
Другие вопросы по теме Информатика
Toma06000
02.07.2019 20:50
alenafgfgf
02.07.2019 20:50
Почтиматематик2894
02.07.2019 20:50
manyna4
19.10.2020 08:11
Abbal
15.04.2020 20:59
Sasha1234679
15.04.2020 20:58
kolomietslina
15.04.2020 20:58
Fvbygbb
06.08.2019 01:10
Craftrik
20.09.2019 15:30
Популярные вопросы
- Сколько столетий существовала критская культура? в течение сколькиз веков...
1 - Скаким из высказываний можно согласиться? 1. ценности современной молодежи...
1 - Нод 400 и 100 скажите ответ незнаю ответ точно...
3 - 4*. тело массой 2 кг тянут по горизонтальной поверхности с ускорением...
2 - Вспахали 3/8 поля,после чего осталось вспахать 15 га. какова площадь всего...
3 - Зачеркни слова которые не являются проверочным родной , родина, род, родня,...
1 - Есть окончание ёт или ет? например: трясёт,фыркает,хрюкает,ревёт...
1 - 3. в ракете находится человек массой 90 кг. определите вес человека в...
1 - Явлениями живой природы в зимних месяцы...
3 - Фигура на рисунке сложена из шести квадратов со стороной а. верно ли утверждение?...
2
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