Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aslazer211124
16.07.2022 09:41 •
Информатика
1.дано целое число а. определить количество цифр в числе, которые больше 6.pascal
Показать ответ
Ответ:
Sasha03kms
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 оценок)
Популярные вопросы: Информатика
LI100K
17.09.2022 20:37
Нужно полностью выполнить это в паскале. решение или в картинках или же рукописно сюда. 1. вывести на экран сообщение: ! меня зовут саша! я студентка 2 курса начального...
5312макс1245
24.08.2020 03:13
Напишите программу в которой вводятся два числа a и b. затем первое число уменьшается в 2 раза, а второе увеличивается на 30. выведите измененные значения переменных...
Katuchka001
30.04.2020 07:01
Дано натуральное число nn. необходимо поменять порядок цифр числа на обратный. c++ c выделением в цикле цифр в числе от старших разрядов к младшим...
MorficTV
01.11.2020 05:18
На плоскости произвольно расположены шесть точек (никакиетри из них - не лежат на одной прямой). каждые две точкисоединены отрезком или красного, или синего цвета. доказать,...
alkofner
30.12.2021 13:33
Определить значение переменной y...
Alina23154784
08.11.2022 21:53
Таблица истинности по информатике ...
alpis2002
07.12.2020 01:02
В коллекции хранятся бабочки различных цветов. Чтобы узнать, какого цвета бабочки преимущественно составляли коллекцию, выполни алгоритм...
TheAlexFunny
28.04.2021 11:02
До іть Пропозиції щодовирішення проблеми:1. Вирубки лісів2. Вбивання тварин3. Виловлювання риби4. Горіння лісів...
EgotinSmey
18.06.2020 11:10
, ОЧЕНЬ (не списывать) А) Посмотрите на картинки. Что представлено на них? Для чего они необходимы? ответ должен содержать не менее 2-х предложений. ikr-1.png ikr-2.png...
seimar2
01.04.2020 06:40
К. Симанов Ледовое Побоище , глава 4,61. Где и почему находился князь до битвы? 2. Как автор описывает князя? 3. Почему Александр Невский соглашается вернуться в Новгород...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.