Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
polskryabina20
21.10.2021 12:04 •
Информатика
1.дано целое число а. определить количество цифр в числе, которые больше 6.pascal
Показать ответ
Ответ:
ира1025
10.07.2020 13:22
Var
A, counter: integer;
begin
readln(A);
counter := 0;
repeat
if (A mod 10 > 6) then
inc(counter);
A := A div 10;
until (A = 0);
writeln(counter);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
1602qaz
09.04.2021 15:06
Дано натуральное число меньше 16. посчитать количество его единичных битов. например, если дано число 9, запись которого в двоичной системе счисления равна 10012 (подстрочная...
GALAXY356
22.11.2020 15:49
Html форматындағы сайт картасы...
qwdv
26.02.2021 22:50
Приведите пример отношений. Укажите правильный вариант ответа: Мария — сестра Ивана 1 гигабайт больше 1 мегабайта синий и зелёный карандаши лежат в одной коробке все...
Анна121314151
17.03.2021 02:12
Переведи двоичное число 101011 в десятичную систему....
Емсимася
21.03.2022 22:53
Основанием двоичной системы счисления является число...
Zagonov
25.05.2022 08:56
Как в автоматическом оглавлении (в ворде) уменьшить выделенный промежуток?...
SeenL
07.06.2023 06:28
Алгоритм збереження текстового документа 1. Контексне меню - зберегти 2. пуск - всі програми - зберегти 3. Файл - зберегти як… 4. Файл-програми- зберегти Запитання 4...
DariaRain7
29.07.2020 07:42
Укажіть вигляд формули =B3+C3 після копіювання її з клітинки E3 у клітинку D3 у середовищі електроної таблиці...
goshan14
07.05.2021 19:01
А)203,81: (141-136,42)+38,4: 0,75 б)96: 7,5+288,51: (80-76,74)...
vnviy1234
07.05.2021 19:01
Число 10 разложите на два слагаемых так,чтобы сумма их кубов была наименьшей...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A, counter: integer;
begin
readln(A);
counter := 0;
repeat
if (A mod 10 > 6) then
inc(counter);
A := A div 10;
until (A = 0);
writeln(counter);
end.