Раздел 5 (из 10). Измерение информации Вопрос 1 (из 3 в разделе) Переведите количество информации в - id1572432320221003 от dashkin21 03.10.2022 00:04

Question

Информатика: Раздел 5 (из 10). Измерение информации Вопрос 1 (из 3 в разделе) Переведите количество информации в другие единицы, используя степени числа 2: Для просмотра примера щелкните по картинке В ответ записать ТОЛЬКО показатель степени числа 2 2694 Мбайт = ? байт алаlіаtія ответ​

dashkin21 · Accepted Answer

Const n=20; var  a,b:array[1..n] of integer; i,j,k,m,c:integer;  begin Randomize; writeln( Исходный массив: ); for i:=1 to n do  begin   a[i]:=random(51)-25;   write(a[i]:5);  end; writeln; j:=0; for i:=1 to n do  if a[i] 0 then begin j:=j+1; b[j]:=a[i]; end; m:=j; for k := 1 to m-1 do   for i := 1 to m-k do      if (b[i] b[i+1]) then         begin        c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c;        end; writeln( Вс массив: ); for i:=1 to m do write(b[i]:5); writeln; j:=0; for i:=1 to n do  if a[i]...

MOGZ ответил