Позволяет найти количество информации которое содержится в выбранной сообщении ( I ) , i - это информационный вес символа, k - это число символов в сообщении
Var
Y,X:real;
Begin
Write('X = ');ReadLn(X);
if X<2 then Y:=5
else if X=2 then Y:=2
else Y:=10;
WriteLn('Y = ',Y);
End.
<span>2)
c = 5, когда не выполняется оба условия, то есть:
</span><span><span>If a<7 then c:=10 // a>=7
else if a>7 then c:=2 // a>7
else c:=5
Переменная a может иметь любое значение больше семи.
</span></span>
Ответ:
Program triangle;
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
Подробнее - на Znanija.com - znanija.com/task/4758960#readmore
Объяснение:
1). 218=332
2). 176,25=незнаю
3). 111000100=452
4). 100000,01=незнаю
16000 Герц * 8 бит * 2 канала * 10 сек = 2560000 бит
2560000 бит / 8 =320000 байт
320000 байт / 1024 = 312,5 Кбайт