Объем видеофайла=(объем видео + стерео звука) * время/сжатие
<span>видео шир выс объем кадра кадры видео бит
</span><span> 640 480 307200 25 7680000
</span><span>звук частота глуб каналы звук бит
</span><span> 22000 16 2 704000
</span><span>видео+ звук время время объем виде-файла без сжатия
</span><span>8384000 5мин*60 300 2515200000</span>
объем виде-файла с сжатием
251520000 бит
<span>245625 Кбит</span>
5А в 16= 5*16^1+10*16^0= 90 в десятой степени снизу.
Площадь поверхности правильной пирамиды через апофему
<span><span>L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ)
</span><span>P - периметр основания
</span><span>So - площадь основания
var
L, P, So: real;
begin
readln(L, P, So);
writeln('S = ', 0.5 * P * L + So);
<span>end.</span></span></span>
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
<u>Пример</u>
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..