Данное сообщение составлено из всех символов алфавита, значит в алфавите 16 символов. Формула:
N=2 в степени i
i - информационный вес
N - количество символов в алфавите
16=2 в 4 степени
Информационный вес символа: 4 бита.
В сообщении всего 18 символов: 18*4= 72 бита
Program kvadrat;
uses crt;
var i,a,b: longint;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do
if trunc(sqrt(i))*trunc(sqrt(i)) = i then writeln(i);
end.
Procedure TFrmCalc.BtnPlusClick(Sender: TObject);
begin
FrmCalc.LblPlus.Visible:=True;
FrmCalc.LblMinus.Visible:=False;
FrmCalc.LblDel.Visible:=False;
FrmCalc.LblUmn.Visible:=False;
FrmCalc.LblA.Caption:=IntToStr(StrToInt(FrmCalc.EdtCh1.Text)+StrToInt(FrmCalc.EdtCh2.Text));
end;
Попробуйте так, мне сейчас не на чем проверить, но должно получиться =)
<span>целый целый R := A + B
тип результата: целый
целый целый R := A - B
</span><span><span>тип результата: целый
</span>целый целый R := A * B
</span><span>тип результата: целый
целый целый R := A / B
</span><span><span>тип результата: вещественный
</span>целый целый A > B
</span><span><span>тип результата: логический (true/false)
</span>
целый целый A < B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный R := A + B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A - B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A * B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A / B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный A > B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный A < B </span>
<span><span>тип результата: логический (true/false)
</span></span>
Ответ:
первое верно, второе - ложное, третье - верно, четвёртое - ложное, пятое - верно (но это довольно субьективный вопрос).
