Сообщение о том, что из мешочка с бочонками лото был извлечен номер двадцать пять несет шесть бит информации. - id598618220220429 от илья1967 29.04.2022 04:23

Question

Информатика: Сообщение о том, что из мешочка с бочонками лото был извлечен номер двадцать пять несет шесть бит информации. сколько всего бочонков было в мешке на момент извлечения ? ответы: 67; 59; 123; 25 с пояснениями,

илья1967 · Accepted Answer

A) program a1; uses crt; var m:array[1..40]of integer; i:byte; a,ka:integer; begin clrscr; a:=0;ka:=0; for i:=1 to 40 do begin  m[i]:=random(21);  if m[i] mod 2 0 then  begin  ka:=ka+1;  a:=a+m[i];  end;  end; for i:=1 to 40 do  if i=1 then write( M[ ,m[i], , )   else  if i=40 then writeln(m[i], ] )   else  write(m[i], , ); writeln( Среднее арифметическое нечетных чисел= ,a/ka); end. b) program b1; uses crt; var m:array[1..40]of integer; i:byte; b:integer; begin clrscr; for i:=1 to 40 do begin  m[i]:=random(21);...

MOGZ ответил