Войти
Регистрация
Спроси 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. программа получает на вход натуральные...
zajka23oz3xl9
08.01.2022 22:55
Что изменилось в характере, поведении и внешности тараса после битвы род дубно, смерти андрия пленения остапа? чем потрясает последняя встреча тараса с остапом?...
Filipok220
08.01.2022 22:55
Самолет летит со скоростью 750 км/ч.какой путь он пройдет за 6 ч полета?...
serjo1216
08.01.2022 22:55
Особенности произношения согласного звука перед е (мягкое,вариантное,твердое)...
КатяХалина
08.01.2022 22:55
Почему сложное поведение муравья или пчел нельзя назвать трудом...
Catia2006
08.01.2022 22:55
Составить простой план о мифе об осирисе...
ubfhbc
08.01.2022 22:55
Разобрай слова попадежам казахского языка: той,казак,елтанба....
Kotyaty
08.01.2022 22:55
Элемент селен сходен с серой.напишите формулы высших оксидов и гидроксидов этих элементов,назовите их и укажите свойства (основные,кислотные,амфотерные)...
snezhanabaracov
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.