Uses Crt;
const
n=30;
type
tA=array[1..n] of integer;
tS=array[1..n] of string[30];
var
i:integer;
p,c:tA;
s:tS;
begin
ClrScr;
for i:=1 to n do begin
Write('Марка автомобиля ',i,': ');
Readln(s[i]);
Write('его мощность (л.с.) и стоимость (руб.); ');
Readln(p[i],c[i])
end;
Writeln;
Writeln('Автомобили мощностью не более 80 л.с.');
for i:=1 to n do
if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);
ReadKey;
end.
<em>1 байт информации = уменьшение определенности в 2 раза.</em>
<em />
Сначала они получили 1 байт информации, когда узнали, что будут плавать на 3 или 4 дорожке.
Потом получили ещё один байт, когда узнали, что будут плавать на 3 дорожке.
Неопределенность уменьшилась в 4 раза, а значит они получили 2 байта информации.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
uses Crt;
begin
Writeln('+--------+---------+');
Writeln('| In | Out |');
Writeln('+--------+---------+');
end.
4 книги поместиться ище место будет смотря какой диск