Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Viki5776766
23.09.2022 17:32 •
Информатика
Составьте программу которая содержит функцию нахождения количества разрядов заданного числа не превосходящего 1000000000
Показать ответ
Ответ:
Влад5624
04.10.2020 02:23
Function kr(n:longint):integer;
var
s:string;
begin
Str(Abs(n),s);
kr:=Length(s)
end;
var
k:longint;
begin
Write('Введите целое число: '); Read(k);
Writeln('В этом числе количество разрядов равно ',kr(k))
end.
Пример работы программы
Введите целое число: 1234567
В этом числе количество разрядов равно 7
0,0
(0 оценок)
Популярные вопросы: Информатика
shulgavitaliy1ozo6g1
08.03.2022 19:04
Установите соответствие.Показ слайдовОбычный режимСортировщик слайдов1Создание слайда: его оформление, вставка текста и графики2Определение и установка перехода от слайда к слайду,...
GizaHelinc
28.10.2020 02:41
во по информатике, ворбще его не понял, 8 классПредставьте, что вы открыли файл в hex-редакторе и видите 16-чные числа. Вы видите шестнадцатиричное число (A00+ваш номер в списке...
jenkatimosh
27.06.2021 07:26
Какое слово написано жирным и курсивом 1) дверь 2) стена 3) окно 4) лампа...
snoopfray
24.09.2022 02:22
Выбери верные правописания. «белый»(компьютер )( белый )«BMW »(автор)« автор »...
VodDamirVod
11.08.2020 11:19
Выберите самый большой объём информации из данных 1) 1гб 2) 1025мг 3) 4096кб 4) 102400б...
Отлицница23
26.02.2020 03:46
Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 5 файлов в байтах (от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты....
Nobd
09.10.2022 15:27
Дано n чисел. замените все отрицательные числа их модулями. язык программирования паскаль....
DIAAADA
13.05.2020 14:47
ответить на вопросы! ! 90 ! 1)какие параметры характеризуют производительность процессора? 2)какие основные характеристики необходимо принимать во внима¬ние при выборе накопителя...
duy53519
05.10.2021 15:46
Физика. Два заряди по 20нКл розташовані на відстані 2м один від одного. Посередині між ними знаходиться третій заряд 1нКл. З якою силою діють два заряди на третій...
shydik37
05.10.2021 15:46
Зіставте одяг молоді минулого і сучасності. Запишіть свої міркування: - який одяг є зручнішим для людини? що вплинуло на зміну моди? чи буде зручно сучасній людині в одязі 19 ст...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s:string;
begin
Str(Abs(n),s);
kr:=Length(s)
end;
var
k:longint;
begin
Write('Введите целое число: '); Read(k);
Writeln('В этом числе количество разрядов равно ',kr(k))
end.
Пример работы программы
Введите целое число: 1234567
В этом числе количество разрядов равно 7