Если посмотреть: можно видеть что ПРИ Н - Т и рядом стоит катер тоемть выходит слово ПРИНТЕР: правильный ответ 1)
При алфавитном подходе рассматривается не содержание текста, а его размер.
Зная количество символов в алфавите (это его мощность N), определяем информационный вес i алфавита в битах,используя формулу 2^i=N , затем по формуле J=K*i определяем информационный объем текста (количество информации) K-количество символов в тексте
Например, текст составлен на современном компьютере (русский алфавит -прописные и строчные, английский алфавит-загл и прописные, цифры, знаки) Всего 256 символов Значит мощность алфавита N=256 Информационный вес символа i получаем из равенства 2^i=256 i=8 бит (2^i=N)
Считаем количество символов К текста, включая пробелы и по формуле считаем J- информационный объем (получаем в битах) Если необходимо полученный результат переводим в более крупные единицы.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var r1,r2,r3:real;
Write('Введите R1 R2 R3: '); Read(r1,r2,r3);
var g:=1/r1+1/r2+1/r3;
Writeln('R=',1/g:0:5)
end.
<u><em>Тестовое решение:</em></u>Введите R1 R2 R3: 3.5 2.75 4
R=1.11191
Ответ:
Коротко :хз, хз, хз, хз, хз, хз, хз
Сорян знал бы помог
<span>Program korni;
</span>
<span>var a,b,c,d,x1,x2: </span>real;
<span><span>Begin
</span></span>
Writeln ('Введите значение a',a);
<span>
Readln (a);
</span>
Writeln ('Введите значение b',b);
<span>
Readln (b);
</span>
Writeln ('Введите значение c',c);
<span>
Readln (c);
</span>
d:=sqr(b)-4*a*c;
writeln ('d=', d);
<span>if d></span>0 then
<span>
begin
</span>
<span> x1:=(-b+sqrt(d))/</span>2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln (' x1=', x1);
Writeln(' x2=', x2);
<span>
end;
</span>
<span>if d<</span>0 then writeln('Нет корней');
<span>
end.</span>