Program a18;
var
a,max,min,kol:integer;
begin
readln(a);
max:=a;
min:=a;
kol:=0;
while(a<>0) do begin
if(a>max) then max:=a;
if(a<min) then min:=a;
if(a>120) then inc(kol);
readln(a);
end;
writeln(max-min);
writeln(kol);
end.
Не возвращает значение, которое может быть использовано в выражении.
Ответ:
a=open("input.txt").read().split()
a=list(map(int,a))
b=open("output.txt","w")
b.write(str(sum(a))+"\n")
b.write(str(sum(a)/len(a)))
b.close
Объяснение:
0.01010001111010111000010100011110101110000101000<span>111 в двоичной с/c
</span><span><span>0.243656050753412172702436560507534121727024365605078 в восьмеричной с/с</span><span>
</span></span>
Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.