Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Игорь2019365
25.12.2022 00:27 •
Информатика
Составьте программу, дано количество информации в битах. вывести в удобной форме в более крупных единицах. (до мб). пример вывода: 10240 бит = 1280 байт = 1,25 кб = 0,0012 мб
Показать ответ
Ответ:
freax1613
04.10.2020 04:57
Var
n:integer;
begin
read(n);
write(n,' бит = ', n/8, ' байт = ', n/8192:0:2,' Кб = ',n/(8*sqr(1024)):0:4,' Мб');
end.
Альтернативное решение:
var
n: integer;
b, kb, mb: real;
begin
read(n);
b := n / 8;
kb := b / 1024;
mb := kb / 1024;
write(n, ' бит = ', b:0, ' байт = ', kb:0:2, ' Кб = ', mb:0:4, ' Мб');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Gamonga
11.05.2022 04:46
Установить зависимость и найти значение функции y по формуле : y = 2k^2+x, где k=c+7x,x=2c...
nikitamarar2177
22.06.2021 02:31
Втаблице dat хранятся данные о количестве детских праздников, которые проводило кафе за последний год (dat[1] — количество детских праздников в январе, dat[2] — количество праздников...
матвей467
13.08.2020 13:36
Как в программе Krita создать фон ( у меня он говорит тут рисовать нельзя когда я создаю фон ) И как его переместить по заде всех объектов, то есть где кнопка слоев. Кто работает...
kirapri32
19.10.2022 01:02
ОТ •Укажите и подпишите города Баласагун, Ашнас, Сыгнак, Отрар. •Раскрасьте разными цветами территории территории улусов, розданные Чингисханом своим сыновьям и подпишите их названия....
sabinasokolova
19.10.2022 01:02
Удрученный ношей крестной, Всю тебя, земля родная,В рабском виде царь небесныйИсходил, благословляя.(отрывок) 1. Выпишите слово, в котором букв больше, чем звуков.2. Выпишите слово,...
pocemonpickachu
19.10.2022 01:02
1. Как экономика служит людям? 2. Какая форма хозяйствования наиболее успешно решает це-ли экономики?...
Kirill4421
20.12.2022 13:01
Исследуем текст вместе. ответьте на вопросы и выполните задания. Что увидел человек? Какая картина предстала перед ним?2. Как автор передает точность описания увиденного человеком,шедшим...
N4kes
02.12.2021 12:18
3. Выполните упражнение Впиши в вопрос нужную формуглагола tо bе. 0... Kate a doctor?... Mary and Mike friends?... your father a driver?... it a cat or a dog?... they from Australia?......
Адриана1111111
18.04.2021 07:34
1.Жасушаны және оның құрылымын зерттеу үдерісі қалай дамыды?...
sonerraz
21.12.2021 10:01
нужна с английского ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n:integer;
begin
read(n);
write(n,' бит = ', n/8, ' байт = ', n/8192:0:2,' Кб = ',n/(8*sqr(1024)):0:4,' Мб');
end.
Альтернативное решение:
var
n: integer;
b, kb, mb: real;
begin
read(n);
b := n / 8;
kb := b / 1024;
mb := kb / 1024;
write(n, ' бит = ', b:0, ' байт = ', kb:0:2, ' Кб = ', mb:0:4, ' Мб');
end.