Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
olgahenderson
26.07.2020 01:13 •
Информатика
Составить программу подсчитывающую количество цифр числа вводимого с клавиатуры
Показать ответ
Ответ:
Nicktat
15.07.2020 15:21
Var
a,i,n:integer;
begin
readln(a);
while a>0 do
begin
inc(i);
a:=a div 10;
end;
writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pd101
16.02.2023 18:26
Дана последовательность операторов: c:=1; d:=2; repeat c:=c*2; d:=d+2; until d 9 s:=c+d end. Сколько будет раз повторён цикл и какими будут значения переменных c. d....
kaltaeva98
12.11.2020 16:02
Гиперссылка Подпишите изображение.Как называется гиперссылка, изображённая на рисунке?...
Gunterio
13.05.2022 14:06
нормализовать базу данных аптеки, в частности разбить список лекарств...
nataliacosciuc
04.01.2020 15:20
Дається N точок на координатній площині. Знайдіть кількість точок, які мають цілі координати (, X , Y ) Формат вхідних даних Вхідний потік містить ціле число N (1≤≤100...
Lyuda56
26.06.2022 20:31
Вычислить сколько байтов занимает на сд 1 минута стереозаписи, если частота дискритизации 44000, разрядность звук. 16 бит. какова максимальная продолжительность стереозаписи...
1064738193747
03.04.2022 19:03
Найти квадрат наибольшего из двух чисел а и b. вывести на экран число 1, если наибольшим является число а, число 2 – если наибольшим числом является b....
Artem152006
03.04.2022 19:03
8. метеорологическая станция ведет наблюдение за влажностью воздуха. результатом одного измерения является целое число от 20 до 100%, которое записывается при минимально...
iwliliya18
03.04.2022 19:03
Найти значение переменных х и у х: =4*5 div 3 mod 2; y: =4*5 div (3 mod 2);...
RFHBYF456
26.06.2021 06:33
Определить объем видеопамяти компьютера,который необходим для реализации графического режима монитора. характеристики которого показаны на рисунке разрешение экрана...
MarKizaCat666
27.04.2023 12:49
Верёвочку длиной 1 и верёвочку длиной 2 разрезали на несколько честей каждую. все части оказались равными по длине. сколько могло получится частей?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,i,n:integer;
begin
readln(a);
while a>0 do
begin
inc(i);
a:=a div 10;
end;
writeln(i);
end.