Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 240 c
A = D * i * t * c = 16000 * 16.0 * 240 * 2 = 122880000.0 бит = 15000.0 Kбайт = 14.6484375 Мбайт
Объем графического файла равен= кол-во пикселей*глубину цвета. подставим в формулу данные:
16 цветов, значит глубина цвета i=4 бита
625*8 бит=125*х пикселей в ширину*4 бит(глубина)
х=625*8/(125*4)= 10 пикселей
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k:= ReadInteger('k =');
var (a,b) :=(1,1);
for var i := 3 to k do
(a,b):= (b,a+b);
Writeln('a) ', b);
(a,b) :=(1,1);
var sum:= 2;
var n:= ReadInteger('n =');
Write('б) 1, 1');
for var i:= 3 to n do
begin
(a,b):= (b,a+b);
Write(', ', b);
sum+= b;
end;
Writeln;
Writeln('в) ', sum.IsEven?'YES':'NO');
end.
512*240=122880
переводим килобайты в мегабайты
120 МБ)
program asd;
var a,b,k:integer;
begin
readln (a,b);
b:=b-1;
while (b>a) do begin
write (b,', ');
b:=b-1;
k:=k+1;
end;
writeln;
writeln (k);
readln;
end.