<span> Система команд исполнителя – это все команды, которые исполнитель умеет выполнять. </span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
<u><em>Тестовое решение</em></u>
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10
<span>Пусть размер музыкального файла X, тогда скорость канала А ' x/30 '. Тот же файл в пункте Б, разрешение увеличили в два раза т.е будет x*2, а дискритизацию уменьшили в 1,5 раза, тогда (x*2)/1,5 это объем файла после всех процедур сжатия. Так как скорость в пункте Б больше в 4 раза, чем в А(X/30), тогда скорость в Б будет 4*(x/30) т.е (4x)/30. Ну и теперь стандартно объем после всех процедур (2x/1,5) поделим на скорость т.е (4x)/30, можно наглядно все записать, в результате получится 10.</span>
Var
f1, f2, i, j: integer;
a, b: array [1..5,1..5] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
f1 := 0;
f2 := 0;
for i := 1 to 5 do
begin
if (i = 3) then
continue
else
inc(f1);
f2 := 0;
for j := 1 to 5 do
if (j = 3) then
continue
else
begin
inc(f2);
b[f1][f2] := a[i][j];
end;
end;
end.
Alviko прав, однако мы тут не благородные влюблённые, чтобы, в случае отказа, не надоедать, посему попытаться стоит, пусть и с PascalABC.NET:
var
a: System.Numerics.BigInteger := new System.Numerics.BigInteger(1);
i: integer;
begin
for i := 58 to 158 do
a := a * i;
writeln(a);
<span>end.</span>
