Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
<span>Задача №1. 1)
1кб=1024б
256000бит-с=32000байт-с
43*32000=1376000 - размер в байтах
1376000/1024=1343,75 кб
2) </span>256000бит-с=32000байт-с*2=64000байт-с
<span>43*64000=2752000 байт = 2687,5 кб
Ответ: в 2 раза.
Задача 2.
Q=q*t
Q- объем
q- скорость
t- время
295кб=302080б=2416640бит
t=</span>2416640/128000=18,88с<span>
</span>
1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.
I=k*i
I=128*128*5=81920 бит=81,92 килобит=10,24 килобайт.
КОд не написал, но так-как делал сам уже, скажу что это число 3, либо ответ В)