Пусть задан некий алфавит (в данном случае это множество оценок 1,2,3,4,5) и есть вероятность p_i выпадения символа i этого алфавита, тогда справедлива формула Шеннона, о том, что некое сообщение будет иметь объем информации равный I:
Пусть вероятность получения пятерки равна p. P = N/100 (число пятерок на число оценок). Нам известно, что сообщении о одной пятерке имеет объем 2 бита, применяем формулу:
ответ 25 пятерок
На сегодняшний момент существует множество операционных систем. Они могут различаться в написании кода, во внешнем виде, в предназначении. И из-за того, что их так много и все они различаются - я решил изучить эту тему.
Эта команда создаст все каталоги:
mkdir C:\школа\проекты\информатика\2четверть\контрольная
Создавать презентацию нужно в каталоге C:\школа\проекты, потом нужно переместить ее в C:\школа\проекты\информатика\2четверть\контрольная.
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j]>0 then k:=k+1;
Write(k:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
1)
program gt;
var a,q,i:integer;
begin
q:=0;
for i:=1 to 10 do
begin
read(A);
if(a mod 3=0)then begin
q:=q+1;
if(q=1)then writeln(a);
end;
end;
<span>end.</span>