Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
137rdh
06.05.2020 07:46 •
Информатика
дано натуральное число n. составьте программу, которая определяет, сколько цифр содержится в числе n.
Показать ответ
Ответ:
stanislavgulya
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 оценок)
Популярные вопросы: Информатика
ask52
26.11.2021 09:37
РЕШИТЕ ЗА ЭТО РЕШЕНИЕ...
Froxy
09.08.2022 01:59
Записать решение желательно с формулой и вычислениями. Алексей занимается спортом, причём 4 дня в неделю – лёгкой атлетикой, 2 дня – силовыми упражнениями и 1 день отдыхает. Сколькими...
Nelia88
10.11.2021 22:55
Скласти інформаційний ланцюжок редьярд кіплінг...
STAS228917654321
01.05.2023 20:20
Дано: АВ = СD, кут ВАС = кут DCA.Довести: ∆ABC = ∆CDA...
Valeri050608
25.04.2021 00:24
1.Плотность одного вещества в 2 раза больше плотности другого. Чему равно соотношения из масс? 2. Поезд длиной 480 м., двигаясь равномерно проходит мост длиной 720 м., со скоростью...
juliaked1
16.12.2021 10:24
илтимос комак беринглар...
Naychpok
03.01.2022 22:49
яку викорисну роботу виконуэ двигун екологычно чистого втомобиля з ККД 30%. коли витрачаэ 15л. спирту...
robiya86
12.05.2021 17:16
Скорость реакции при 40°C равна 0,6 ммоль/л-сек. Определите скорость реакции при 80°С (в моль/л-сек)если температурный коэффициент скорости равен 3....
darinamel196
07.03.2021 00:16
На гранях тетраэдра sabc провели медианы. Найдите расстояние между точками пересечения медиан граней asb bsc если ребро терадэра ровно 60...
МуратгалиевАмир
10.03.2021 12:48
Заранее за Robert: Is Tim leaving on Friday? Yesterday Robert asked me . if Tim was leaving on Friday if Tim is leaving on Friday if was Tim leaving on Friday if Tim has leaving...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.