Для решения задачи используем формулу I =
Вероятность взять перец = 8/16 = 1/2. Количество информации в сообщении о том, что взят перец I1 = log(2)[1/(1/2)] = log(2)2 = 1 бит
Вероятность взять огурец = 4/16 = 1/4. Количество информации в сообщении о том, что взят огурец I2 = log(2)[1/(1/4)] = log(2)4 = 2 бита
Вероятность взять баклажан = 2/16 = 1/8. Количество информации в сообщении о том, что взят баклажан I3 = log(2)[1/(1/8)] = log(2)8 = 3 бита
Для редиса I4 = I3 = 3 бита
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.
Через while:
var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
while i < 10 do
begin
readln(x);
s := s + x;
inc(i);
end;
sr := s / i;
writeln(sr);
end.
Через repeat:
var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
repeat
readln(x);
s := s + x;
inc(i);
until i = 10;
sr := s / i;
writeln(sr);
end.
Через For:
var
s, x, i: integer;
sr: real;
begin
s:=0;
for i:=1 to 10 do
begin
readln(x);
s := s + x;
end;
sr := s / i;
writeln(sr);
end.
Даже не помню. Вроде редактор текста потом /HTML/Text/Pap45/Vovr/ Алгоритм схемы сочетания текста по языку HTML который хорошо работает на операционной системе Linux. Блок схему к сожалению не помню!
752 = 111101010621 = 110010001305 = 11000101