Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
Будет сделан выбор 1 из 64, неопределенность знаний о выбранной клетке уменьшится в 64 раза, 64 это два в шестой степени, следовательно, количество полученной информации составит 6 бит.
Системы управления базами данных
<span>Примером может послужить Microsoft Access </span>
<span>Основные компоненты MS Access: </span>
<span>* построитель таблиц; </span>
<span>* построитель экранных форм; </span>
<span>* построитель SQL-запросов (язык SQL в MS Access не соответствует стандарту ANSI); </span>
<span>* построитель отчётов, выводимых на печать.</span>
MM !!! :-) legho очень легко ММ
В паскале не силен, алгоритм следующий
если 2*sqrt(S1/Pi) <= sqrt(S2) то "Круг поместится в квадрат"
иначе "Круг не поместится в квадрат"
если 2*sqrt(S1/Pi) >= sqrt(2*S2) то "Квадрат поместится в круг"
иначе "Квадрат не поместится в круг"