Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
knmnatalip011cc
13.09.2022 08:02 •
Информатика
Напишите функцию, которая вычисляет количество цифр числа
Показать ответ
Ответ:
amamam009
25.08.2020 10:14
Function kolich (a: integer):integer
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End
0,0
(0 оценок)
Популярные вопросы: Информатика
yakovlevakristi
24.06.2022 09:58
Какую информацию нельзя разглашать в интернете? информация о вашем благосостоянии информация о месте и адресе проживания рассказы о знакомых информация о проведенном отпуске заграницей...
Kate00013
25.07.2021 00:35
Подберите синонимы к слову беззаботно....
papashamuslimo
25.07.2021 00:35
Какие последствия имела война для испанских габсбургов, для австрийских габсбургов...
Deer22
25.07.2021 00:35
Y=x2-14x+15 найти стационарные точки...
daliiss
25.07.2021 00:35
Ученик выполнил деление: 148/15=8(ост28) в чём заключается ошибка? выполни деление правильно...
mashka2511
25.07.2021 00:35
Сочинение про дательный падеж 11 или 12 предложений...
vladshumigayoypa3u
25.07.2021 00:35
Решите уравнение 9b+6b-15=615 2a+123a+97=472...
aman1382
25.07.2021 00:35
Виписати 5 українських прислівїв із дійєсловами на -шся,-ться....
EvaCat777
25.07.2021 00:35
От чего зависит размер вознаграждения труда - заработной платы...
agentWINX
25.07.2021 00:35
Пословица к произведению черная курица...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End