9№ 5351. производится четырёхканальная (квадро) звукозапись с частотой дискретизации 16 кгц и 16-битным - id552244120211230 от Роза2735 30.12.2021 16:16

Question

Информатика: 9№ 5351. производится четырёхканальная (квадро) звукозапись с частотой дискретизации 16 кгц и 16-битным разрешением. запись длится 1 минуту, её результаты записываются в файл, сжатие данных не производится. какая из ниже величин наиболее близка к размеру полученного файла? 1) 7 мбайт 2) 19 мбайт 3) 33 мбайт 4) 59 мбайт 2 10 № 3700. все 5-буквенные слова, составленные из букв б, к, ф, ц, записаны в алфавитном порядке и пронумерованы. вот начало списка: 1. 2. 3. 4. 5. …… запишите слово, которое стоит

Роза2735 · Accepted Answer

Var i,j:integer;
mas:array [1..10] of integer;
begin
randomize;
for i:= 1 to 10 do
mas[i]:=random(101);
for j:=1 to 10-1 do
for i:=1 to 10-j do
if mas[i] mod 10 > mas[i+1] mod 10 then
swap(mas[i],mas[i+1]);
for i:=1 to 10 do
writeln(mas[i]);
end.
2)
var a:array[1..10] of Integer;
i,j:Integer;
begin
randomize;
for i:=1 to 10 do
a[ i]:=random(101);
for i:=1 to 4 do
for j:=i+1 to 5 do
if a[ i] > a[ j] then
swap(a[i],a[j]);
for i:=5 to 9 do
for j:=i+1 to 10 do
if a[ i] < a[ j] then
swap(a[i],a[j]);;
for i:=1 to 10 do
write(a[ i],' ');
end.

MOGZ ответил