Водном из вариантов кодировки unicode на каждый символ отводится два байта. определите информационный - id304386420210527 от liliana564 27.05.2021 12:20

Question

Информатика: Водном из вариантов кодировки unicode на каждый символ отводится два байта. определите информационный объём сообщения из двадцати символов в этой кодировке.1)20 байт2)40 бит3)160 бит4)320 бит

liliana564 · Accepted Answer

Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.

Результат:
s = 49500 k = 90 sred = 550.00

Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
StaticText1.Caption := s;
end;

MOGZ ответил