Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
СилаЛебедя
24.01.2020 01:49 •
Информатика
дано натуральное число n. составьте программу, которая определяет, сколько цифр содержится в числе n.
Показать ответ
Ответ:
misselYT
20.07.2020 08:52
Program acab;
var n:real;
i:integer;
begin
read(n);
i:=0;
repeat
n:=n/10;
i:=i+1;
until abs(n)<1;
writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sofiapel68p08lqa
13.04.2021 14:34
№4. сколько гигабайт содержит файл объемом 235 бит?...
mischad
28.05.2020 22:21
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. программа получает на вход натуральные...
semenshchiptso
28.05.2020 22:21
Подскажите интересную тему для проекта по информатике...
Margosha100000000000
12.04.2022 17:30
решить задачи по информатике!...
zajka23oz3xl9
08.01.2022 22:55
Что изменилось в характере, поведении и внешности тараса после битвы род дубно, смерти андрия пленения остапа? чем потрясает последняя встреча тараса с остапом?...
Diana17273839
08.01.2022 22:55
Что представляют собой кометы метеоры метеориты?...
Filipok220
08.01.2022 22:55
Самолет летит со скоростью 750 км/ч.какой путь он пройдет за 6 ч полета?...
serjo1216
08.01.2022 22:55
Особенности произношения согласного звука перед е (мягкое,вариантное,твердое)...
paris555
08.01.2022 22:55
My summer adventure 1.place 2. weather at this time of the year 3.how did you there? 4.what did you do (see,learn) there? 5.extra information напишите что я провел...
КатяХалина
08.01.2022 22:55
Почему сложное поведение муравья или пчел нельзя назвать трудом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n:real;
i:integer;
begin
read(n);
i:=0;
repeat
n:=n/10;
i:=i+1;
until abs(n)<1;
writeln(i);
end.