Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ахаахсхвхахэпахэаээа
29.01.2020 08:37 •
Информатика
Напишите программу, которая вычисляет количество цифр числа. используйте функцию.
Показать ответ
Ответ:
тимур624
10.08.2020 18:28
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
Результат
16
30
0,0
(0 оценок)
Популярные вопросы: Информатика
peskovaedoz45yo
26.10.2022 02:03
Всем ) , кто шарит в инфе! робот находится в правой клетке узкого горизонтального коридора, длина которого может быть произвольной. напишите для робота алгоритм, закрашивающий...
TINAdTINA
29.01.2020 12:34
Какую команду нужно выполнить для создания списка ? для чего используется многоуровневый список? что является элементами списка?...
RedSakura
16.03.2022 08:49
Даны пути от корневого каталога к некоторым файлам на диске: \users\peter\frend\letter.txt \users\mary\mary.jpg \users\mary\kate.txt \windows\inf\mbg.inf \windows\system\inf\driver.drv...
NastyaAngell
16.03.2022 08:49
Вкаталоге зарегистрированы файлы: ball.exe, ball.txt, ball.bmp, ball.mid. а)какой файл нужно запустить на выполнение, чтобы начать игру ball? б)в каком файле может храниться...
Vania161
06.07.2021 04:13
Мощность неизвестного алфавита 8 букв. определите информационный вес одной буквы этого алфавита и суммарный информационный объём сообщения, состоящего из 7 букв этого алфавита...
невидома
17.02.2021 11:55
Для записи текста использовался 64-символьный алфавит.какое количество информации в байтах содержат 3 страницы текста ,если на каждой странице текста расположено 40 строк по...
panda4918
23.12.2021 09:49
Выполнить значение функции y=kx+b на отрезке [-2; 2] с шагом 2. k и b ввести с клавиатуры. решение с оператором repeat и while. и если не трудно, то блок-схемы....
Froxy
18.07.2022 20:06
Собрали q кг фруктов (бананов и ананасов), из них в кг бананов, сколько собрали ананасов?...
serdykivka
18.07.2022 20:06
Переведите число fe из шестнадцатиричной системы счисления в двоичную...
succura
24.01.2021 18:30
Составь блок-схему алгоритма работы автомата по продаже банок «pepsi». 1. посмотреть цену 2. опустить монеты 3. подойти к автомату 4. набралась нужная сумма? 5. достать деньги...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
Результат
16
30