<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=MatrRandom(8,5,-99,99); c.Println(4); Writeln(4*c.ColCount*'-');
c.SwapCols(2,4);
Writeln('*** Результат ***'); c.Println(4)
end.
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
<u>Пример</u>
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55
Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
<span>end.</span>
Переводим все велечины в первоначальные единицы:
t = 10мин = 600сек
f = 11.025кГц = 11025Гц
b = 8бит = 8бит.
I = t * f * b
I = 600сек * 11025Гц * 8бит = 52920000бит = 6.3мб
Ответ: 6.3мб