Var a,b,c: real; s: string; begin write('длины сторон через пробел: '); readln(a,b,c); if (a+b>c) and (a+c>b) and (c+b>a) then begin if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then s:='треугольник прямоугольный' else if (sqr(a)+sqr(b)>sqr(c)) and (sqr(b)+sqr(c)>sqr(a)) and (sqr(a)+sqr(c)>sqr(b)) then s:='треугольник остроугольный' else s:='треугольник тупоугольный'; writeln(s); end else writeln('треугольник составить нельзя'); end.
Чтобы ответить на вопрос «сколько информации?», надо определить единицу информации каждого символа. Для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit). Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i. Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.
s: string;
begin
write('длины сторон через пробел: ');
readln(a,b,c);
if (a+b>c) and (a+c>b) and (c+b>a) then
begin
if (sqr(a)+sqr(b)=sqr(c)) or
(sqr(a)+sqr(c)=sqr(b)) or
(sqr(b)+sqr(c)=sqr(a)) then
s:='треугольник прямоугольный'
else
if (sqr(a)+sqr(b)>sqr(c)) and
(sqr(b)+sqr(c)>sqr(a)) and
(sqr(a)+sqr(c)>sqr(b)) then
s:='треугольник остроугольный'
else s:='треугольник тупоугольный';
writeln(s);
end
else writeln('треугольник составить нельзя');
end.
Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i.
Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.