5, 1 Мбайт= 5347737,6 байт
5347737,6 байт / 120 сек / 22050 Гц= 2,02 байт = 16 бит
16 бит
Закодируем буквы на цифры таким образом.
А - 0
П - 1
Р - 2
С - 3
У - 4
Если возникает вопрос почему именно так кодируем, то смотрим на начало списка, и первая буква а, потом п и т.д, поэтому именно так кодируем.
Преобразуем начало списка:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
6. 0010
Первое слово, в котором нет буквы А - это слово ПППП
Т.к у нас от 0 до 4, то это пятиричная система счисления.
ПППП - 1111 по основанию 5. Переводим в десятичную 156. Но номер этой ячейки больше самой ячейки на 1. Значит будет стоять под номером 157 - это и есть ответ
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
// PascalABC.NET 3.0, сборка 1076
begin
var s:='SCHOOL555INFORM';
Writeln('Пароль: ',s.Distinct.Take(6).JoinIntoString(''))
end.
<em><u>Результат выполнения программы:</u></em>
Пароль: SCHOL5
Ответ:
a = input()
b = input()
if a % b == 0:
... print("divisible")
else:
... print("not divisible")
... - табуляция