1. Сколько Кбайт составит сообщение из 200 символов 20-символьного алфавита (ответ укажите в байтах)? 2. Какое количество музыкальных файлов размером по 4 Мб поместится на флешку объёмом 8 Гб, если известно, что на флешке уже занято 1456 Мб 3. Учебник содержит 160 страниц. На каждой странице - 60 строк. В каждой строке - 70 символов (включая пробелы Нужно найти информационный объём текста, если​

1. 0.1220703125 кбайт

2. 1636 песен

3. 672.000 символа

Объяснение:

1. 1 буква = 5 бит

5*200 = 1000 бит

1000:8=125 Делим на 1024, чтобы получит кбайт

125/1024=0.1220703125 кбайт

2. 8 гб= 8000мб

8000мб-1456мб=6544мб

6544мб:4мб=1636 песен

3. 160×60=9600 строк

9600×70=672.000 символов

#arr = [*map(int, input().split(' 0')[0].split())]  если числа вводятся в строчку , то раскомментируйте и используйте эту строку, а инициализацию массива arr и цикл while закомментируйте

arr = []

while 1:

   tmp = int(input())

   if tmp != 0:  # Читаем сколько угодно чисел пока не будет ноль

       arr.append(tmp)

   else:

       break

s = 0  # сумма двузначных чисел

k = 0  # количество двузначных чисел

for i in arr:

   if 10 <= i <= 99:  # итерируемся по циклу и если число двузначное

       s += i  # то прибавляем его к сумме

       k += 1  # счетчик двузначный чисел увеличиваем на один

print(s/k) if k > 0 else print('NO') #если количество двузначных > 0 то выводим среднее арифметическое s/k, если нет то выводим NO

//Блок-схемы в приложении
//Pascal ABC.NET v3.0 сборка 1111

//1
Var
 a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.

//2
Var
 a,b:integer;
begin
 read(a,b);
 if a>b then writeln(b);
 if a=b then writeln('=');
 if a<b then writeln(a);
end.

{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}