Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
Звуковая, видеоинформация, графическая информация, числовая информация, письменная информация
Пусть красных шаров x, тогда желтых шаров 16-x,
<span>а вероятность того, что будет вынут желтый шар равна P=(16-x)/16 </span>
Количество собственной информации в сообщении о том, что достали желтый шар
<span>I=log2(1/P)=log2(1/((16-x)/16))=log2(16/(16-x)) = 3 бита </span>
Отсюда
<span>2^3=16/(16-x) </span>
<span>8*(16-x)=16 </span>
<span>8x=112 </span>
<span>x=14 </span>
Ответ: в корзине 14 красных шаров