Ответ:
Ответ к 1 заданию во вложении
2) Ответ 5, так как три столбика по 2,нам нужен еще один столбик по один(это вон те маленькие)
3) C1/2
Объяснение:
4 Мб = 4 * 1024 Кб = 4 * 1024 * 1024 байт
Если продолжительность записи t секунд, объём файла
8 бит * 44 100 Гц * t с = 44 100 t байт
44 100 t = 4 * 1024 * 1024
t = 95 с
Var
a: array[1..9] of integer;
i: integer;
begin
for i:=1 to 9 do
if i mod 3 = 0 then
begin
a[i-2] := 1;
a[i-1] := sqr(a[i-2]);
a[i] := random(10);
end;
//вывод массива
for i:=1 to 9 do
write(a[i], ' ');
writeln
<span>end.</span>