Переведите, , данные числа в нужные байты. (обязательно с решением, не только ответ, или же как пример показать на одном из данных чисел) 38, 4 гб в кб 36, 715 тб в мб 28116153739 бит в мб 1, 1 тб в мб 816, 7 мб в гб

1 байт = 8 бит
1 КБ = 1024 байт
1 МБ = 1024 КБ
1 ГБ = 1024 МБ
1 ТБ = 1024 ГБ
38,4 ГБ = 38,4*1024 МБ = 38,4*1024*1024 КБ = 40 265 318,4 КБ
36,715 ТБ = 36,715*1024 ГБ = 36,715*1024*1024 МБ
28116153739 бит = 28116153739/8 байт = 28116153739/8/1024 КБ = 
28116153739/8/1024/1024 МБ
1,1 ТБ = 1,1*1024 ГБ = 1,1*1024*1024 МБ
816,7 МБ = 816,7/1024 ГБ

А) Ваня решает у доски задачу;
Хранение информации (в мозге Вани)
Обработка информации (оперирование исходной информацией для получения новой по определенным правилам)
Передача информации (От Вани – классу, используя доску)

б) Оля слушает по радио новости;
Передача информации (от радио – Оле, используя динамики)
Хранение информации (в мозге Оли)

в) Дима учит правило;
Хранение информации (внешняя память, книга)
Передача информации (от книги – Диме, используя текст)
Хранение информации (в мозге)

г) Саша и Вова разговаривают по телефону;
Хранение информации (в мозге у Саши)
Передача информации (от Саши – Вове, используя телефон)
Хранение информации (в мозге у Вовы)

д) Женя отправляет SMS-сообщение;
Хранение информации (в мозге у Жени)
Передача информации (от Жени – получателю, используя телефон)
Обработка информации (кодирование по каналу связи, декодирование)
Хранение информации (во внутренней памяти телефона у получателя)

е) Лена рисует план квартиры. 
Хранение информации (в мозге у Лены)
Обработка информации (структурирование, математические расчеты)
Хранение информации (внешняя память, лист бумаги/холст)

Var
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.