Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
katyagulina666
28.05.2022 08:24 •
Информатика
Написать подпрограмму возведения любого числа в целую неотрицательную степень. с ее вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. pascal abc
Показать ответ
Ответ:
арсений213
08.10.2020 21:17
Function Pow(m,n:integer):longint;
var
i:byte;
p:longint;
begin
p:=1;
for i:=1 to n do p:=p*m;
Pow:=p
end;
begin
Writeln('1 Кбайт=',Pow(2,10),' байт');
Writeln('1 Мбайт=',Pow(2,20),' байт');
Writeln('1 Гбайт=',Pow(2,30),' байт');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
wwe555
09.11.2022 01:42
Перечислите хотя бы три основных свойства абзаца текстового документа....
сойдет2
13.10.2022 18:30
Составьте блок-схему: Если шоколад стоит не больше 50-ти рублей, то купить его, иначе (если больше 50-ти рублей) вернуться домой и взять недостающую сумму....
nastakianka
19.11.2020 14:17
На каком языке написан следующий фрагмент программы? summ:=0; d:=15; c:=d*2; summ:=summ+d;...
плиз168
23.11.2020 13:32
A=int(input (jasy= )) a=int(a)if a =6:print ( balabakwa )elif 7 =a =17:print ( mektep )elif 18 =a =22:print ( JOO )elif 23 =a =63:print ( jumys )else:print ( zeinetkerlik...
zarraban
23.05.2020 11:50
Восполни пробелы вариантами, предлагаемыми в выпадающих списках. В третьей главе Каир-хан просит Чингисхана позволить ему поговорить с Братом Отчимом Отцом Карашокы....
Валерияжеле
18.05.2023 02:19
6) Как относятся татары в первые дни плена калину и во Н. месяц плена. Кормилоло письмо домой написал лене при.в считает, когда письмо прилет. tserent.ку. Стал он присматриваться...
элюсся5
18.05.2023 02:19
Решите задачу, используя язык программирования с++...
mrdruss
23.06.2022 03:52
В ходе восстания 1916г. в казахской степи была восстановлена власть...
Kam09
13.11.2022 13:52
1. What’s your sister like? - … . A) – She is pretty.B) – She is 18.C) – She is OK, thank you.D) – She works hard.E) – She is at university. 2. To remember antonymA) To loveB)...
tylerxjosh
06.02.2022 18:59
Прочитайте текст, выполните задания Определите стиль текста. Приведите 3 доказательства стиля. Определите жанр текста. Приведите 2 доказательства жанра Факты истории спорта...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i:byte;
p:longint;
begin
p:=1;
for i:=1 to n do p:=p*m;
Pow:=p
end;
begin
Writeln('1 Кбайт=',Pow(2,10),' байт');
Writeln('1 Мбайт=',Pow(2,20),' байт');
Writeln('1 Гбайт=',Pow(2,30),' байт');
end.