Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
egame
20.12.2021 17:07 •
Информатика
Нужно составить программу определения количества цифр во введенном числе программе кумир
Показать ответ
Ответ:
anaastasiya04
08.10.2020 04:05
Var n,c:integer;
procedure Kol(n: integer; var c:integer);
begin while n > 0 do
begin n := n div 10;
c += 1;
end;
end;
begin
readln(n);
Kol(n, c);
write(c);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
busiginanst99
05.08.2020 08:05
Сергей сохранил компьютерное изображение размером 1024 х 1536 пикселей. Объем изображения равен 12 Мбайт. Определите количество битов, которые используются для кодирования одного...
tiMYPkomptik
13.05.2021 06:07
Растровое изображение применения...
MedinaIsk
08.06.2022 04:10
І ІЗапишите правильно арифметические выражения в Python. Вы-числите и проанализируйте результат вычисления второго задания.Меняется ли результат вычисления при заключении выраженияв...
Brakorenko88
15.07.2021 10:46
Сколько клеток лабиринта соответствует требованию, что выполнив предложенную программу РОБОТ вернется в туже клетку от куда начал движение? Напишите в ответе количество клеток,...
svetik83
09.07.2021 20:31
Если целое число m делится нацело на целое число n, то вывести на экран частное от целочисленного деления m на n, в противном случае вывести сообщение not completely divisible...
vikulazvezdocka
14.11.2022 15:29
решить Задание 1.1. Напишите в алфавите, состоящем из 4 букв, сообщение, избыточность которого была бы равна 0. Обоснуйте ответ.Задание 2.В каком случае дерево кода будет симметричным?...
Efimenko34
03.05.2023 20:40
Составить любой алгоритм! ВАС...
АРТЕМІДА555
23.02.2021 22:16
1. Приветствие Программа запрашивает у пользователя имя и фамилию, после чего выводит приветственное сообщение в следующем формате Здравствуйте, фамилия имя! Например: Как вас...
lerastorogeva
21.01.2021 07:20
Переведите в шеснадцатеричную систему счисления 173...
yul310588
14.12.2021 13:26
Заранее большое большое : ) постройте отрезок, симметричный данному отрезку ав, если центр симметрии лежит на прямой ав вне отрезка ав...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
procedure Kol(n: integer; var c:integer);
begin while n > 0 do
begin n := n div 10;
c += 1;
end;
end;
begin
readln(n);
Kol(n, c);
write(c);
End.