Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
qqruzko
27.12.2020 15:59 •
Информатика
1.дано целое число а. определить количество цифр в числе, которые больше 6. 2.сумма в а руб. лежит на расчетном счету. на сумму начисляется в% каждый год прибыли. прибыль со счета не снимается. через сколько лет данная сумма удвоится.
Показать ответ
Ответ:
arinuchik
10.07.2020 13:20
Program zz;
var n,x,a:integer;
begin
readln(a);
while a>0 do
begin
x:=a mod 10;
if x<6 then n:=n+1;
a:=a div 10;
end;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BeemayaS
29.09.2020 17:29
Написать самое оптимальное решение (на языке basic код): ввести с клавиатуры 10 раз десять четырёхзначных чисел. сложить из них только те, которые меньше 500, при этом...
Onalbaeva00
23.05.2023 16:44
Два игрока, петя и ваня, играют в такую игру. перед игроками лежат две кучи камней. игроки ходят по очереди, первый ход делает петя. за один ход игрок может убрать из одной...
innesa260778
02.01.2022 06:29
Впитоне (python). надо создаться список с элементами. определить сколько в нем четных,а сколько нечетных элементов. 14 ....
AlenaStypak
16.08.2020 01:12
Сравните интерфейсы powerpoint u word , опишите сходства и различия....
Anutka87igorevna
27.05.2022 17:24
В одном множестве 40 элементов, а в другом - 30. Какое максимальное количество элементов может быть в их: а) пересечении - множестве, которому принадлежат те и только те...
tatynaleonteva1
15.03.2020 10:10
По трем введенным с клавиатуры сторонам необходимо выяснить является ли этот треугольник равносторонним....
laswsc11
25.04.2020 03:37
Каковы должны быть свойства информации, распространяемой в детском журнале? 12 !...
raivon2005new
28.11.2020 09:42
постройте таблицыистинности для следующихлогических выражений: 1. (а+ в) . в2. а- b+a3. (а. в) + а4. (а+ в). в5. a+ (в. с)6. a+ (в.с)7. a-c+ав8. (a+c) - (b+c)...
1NatikNatik1
13.12.2020 20:57
2. Выпишите ключевые слова и предложения из текста. Составьте диалог к тексту. К какому типу относится текст? Назовите его характерные признаки. Обсудите в паре....
Timurrovt456
16.05.2020 20:06
Написать один Синквейн (Барыня, Капитон, Гаврила), выбрать одного из этих героев. (5 б.) 2.Написать эссе “Как бы я поступил на месте Герасима?” (70-80 слов) (5 б.)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,x,a:integer;
begin
readln(a);
while a>0 do
begin
x:=a mod 10;
if x<6 then n:=n+1;
a:=a div 10;
end;
writeln(n);
end.