Надо поставить числа в порядке убывания, на картинке показано пошагово.
Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
<span>Жители 1 планеты используют алфавит из 256 знаком, 256=2^8; на 1 знак - 8 бит.
жители 2 планеты используют из 128 знаков. 128=2:7; на 1 знак - 7 бит.
Для жителей какой планеты сообщение из 10 знаков<span> несет больше информации 10*8 бит = 80 бит, 10* 7 бит=70 бит, </span></span>д<span><span>ля жителей первой планеты сообщение из 10 знаков<span> несет больше информации</span></span>
и на сколько?</span> 80 бит - 70 бит = 10 бит.