Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
natulsen
18.10.2021 03:57 •
Информатика
дано натуральное число n. составьте программу, которая определяет, сколько цифр содержится в числе n.
Показать ответ
Ответ:
kirillkislov
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 оценок)
Популярные вопросы: Информатика
Гольник
01.07.2021 10:50
КАК МОЖНО БЫСТРЕЕ Информационная безопасность — это: A) процесс обеспечения конфиденциальности B) процесс обеспечения конфиденциальности, целостности и доступности информации...
azarkan
09.04.2022 11:41
Перевести десятичные числа в 2 , 8 , 16 системы счисления: 1)16 2)36 3)67 4)129 5)265 6)524 7)1035...
арс90
28.02.2023 06:17
Что уменьшилось на изображении? 1: Применён фильтр2: Насыщенность3: Нет верного ответа4: Цвет...
dahasha0515ozg6qu
28.02.2023 06:17
Что будет если нажать на клавиатуре ctrl+alt+del?...
MaryWintlstone
23.01.2020 07:15
Задание 1 Взяв за основу стихотворения Абая Кунанбаева о при-роде, загрузи из Интернета картинки и материалы по теме информатика 4 класс...
SuЯfeЯ
29.04.2022 20:39
Задание 4.18. Создание таблиц 1. В текстовом процессоре создайте новый документ.2. Создайте таблицу следующей структуры:Свойства файлаИмя файлаТипприложениеразмердата создания3....
viktoria388
24.06.2022 20:22
Какой фильтр из приложения inkscape используется на рисунке: 1:Карандаш2:Светокопия3:Войлок4:Мгновение...
anzhela33
14.03.2023 15:55
Почему на рубеже веков появляется множество литературных течений и направлений?...
mishutka1515
19.07.2020 16:20
Қазіргі заман кезеңіне тән құбылыстарды атаңдар: 1. 2. 3....
adelina1476p0c7y7
04.04.2023 11:15
Агзанын тiршiлiк ету жагдайлары кандай?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.