Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
димка184
04.11.2022 00:13 •
Информатика
Информатика. паскаль. подсчитать количество цифр числа n введенного с клавиатуры.
Показать ответ
Ответ:
agentponomarev6
07.10.2020 03:38
Program P1;
uses crt; {Можно не писать, нужно для очистки экрана}
var n, i:integer;
begin
clrscr;
write('Введите число '); readln(n);
while n>0 do
begin
n:=n div 10;
i:=i+1;
end;
writeln('В введенной числе ', i, ' цифр');
end.
0,0
(0 оценок)
Ответ:
lerakim735
07.10.2020 03:38
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Abs(ReadInteger).ToString.Length)
end.
Примеры
-203534243
9
121
3
0,0
(0 оценок)
Популярные вопросы: Информатика
vikarudenko1998
24.02.2023 08:45
Напишите программу на pascal(и желательно блок-схему) дан массив целочисленных матриц. вывести матрицы, имею- щие наибольшее число нулевых строк....
Luda2600
10.10.2022 18:25
Много ! Кто не знает- не лезьте Отмечу лучший, если всё правильно В качестве гипертекстовых ссылок можно использовать: а)слово, группу слов или картинку,при подведении мыши к...
ferid9098
19.01.2022 13:43
2. Для вычисления значения числа в 4-й степени. Какую встроенную функцию нужно ввести в ячейку? ШАГ1 * 4) Б) = ШАГ1; 4) 3. ( Что рассчитывается после ввода? рассчитывается Б)...
jillikati
04.01.2021 13:54
Найди число строк в таблице, не считая шапки таблицы. Число переменных в выражении — 7....
Alrksanr
08.07.2020 07:48
Ты решил задачу спросил учителя у ученика Да ответил он Сколько бит информации было получено...
nastya2737
05.08.2022 00:55
Водномерном массиве, заполненном случайными числами посчитать сумму и количество четных чисел.массив размером 20...
Kruzhilina242003
05.08.2022 00:55
1.как вы понимаете назначение микропроцессора?...
daniilgurnyy
11.09.2021 15:33
Информатика 9 класс. составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов, которые больше своего...
daniilznanija0
05.06.2020 14:11
Расставьте виды памяти в порядке увеличения быстродействия. регистры, дисковая память, кэш память, оперативная, компьютерная сеть...
АБН2014
25.04.2022 06:05
1. Однорідними членами ускладнено речення A Холоне степ, і невкипілі зорі рогатий жук займ(Л. Костенко).Б Все летять і летять парасолі на посріблених стопах дощув Білий птах на...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt; {Можно не писать, нужно для очистки экрана}
var n, i:integer;
begin
clrscr;
write('Введите число '); readln(n);
while n>0 do
begin
n:=n div 10;
i:=i+1;
end;
writeln('В введенной числе ', i, ' цифр');
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Abs(ReadInteger).ToString.Length)
end.
Примеры
-203534243
9
121
3