Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Killjoy008
06.01.2020 16:39 •
Информатика
Написать программу подсчитивающую количество цифр целого неотрицательного числа
Показать ответ
Ответ:
ManemiDragnil
07.10.2020 07:12
Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
a (>0) = 180653
k = 6
0,0
(0 оценок)
Популярные вопросы: Информатика
bryuho20011
03.12.2022 00:02
Вставьте пропущенное слово.Машина созданная Б.Паскалем «паскалина» относится к этапу развития...
Заноза19
13.07.2022 02:26
ОТВЕТ ДАЙТЕ ХОТЬ НА ОДИН Число 1000111 в восьмиразрядном представлении имеет вид: 100000111 2000111 000111 01000111 Целыми числами являются: 7 1,41 223 5–√ −20 апиши ответ. Число...
SmallGeek
27.05.2020 21:54
По каким критериям нельзя искать файл средствами операционной системы Windows?...
Valeri200666
22.11.2022 00:19
Напишите программу на языке программирования (или составьте алгоритм). подсчитать количество простых чисел в одномерном массиве размером n, состоящем из целых чисел, полученных случайным...
ElectricCat
26.12.2020 14:00
Можно ли информацию потерять? примеры...
Olgadaleewa
26.12.2020 14:00
10 пунктов правила безопасности в кабинете информатики...
TRINDES2017
30.01.2021 23:17
ДИАПАЗОН-ЭТО... А) множество допустимых значений В) расположенные подряд ячейки в строке, столбце или прямоугольнике С) все ячейки одного столбца и строки...
LoLLLLLLLLLLLLLLLL
31.01.2020 15:35
Массив. Напишите программу. Паскаль. В массиве размерностью 6х6 вычислить сумму элементов массива кратных 3 и превышающих по значению минимальный в 2 раза....
Motya232
30.01.2022 09:45
9. В одном множестве 100 элементов, а в другом 200. Какое максимальное количество элементов может быть в их пересечении....
Natali250707
08.11.2021 09:09
Выберите какой будет результат работы следующей программы: a = 10b = 3c = a/bprint ( c = , bool (c))c = Falsec = Truec = 3.3333333333333335c = 3Выберите верный результат работы следующей...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
a (>0) = 180653
k = 6