Он не равнобедренный,он равносторонний.
<span> <span>begin
readln(a);
readln(b);
readln(c);
if (a=b)or(a=c)or(b=c)
then writeln('равнобедренный')
else writeln('неравнобедренный');
end<span>;</span></span></span>
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=10;
var a:=(x+6)*Sqr(x)-Sqrt(x-1);
var b:=Abs(x-15)*Sqr(x+1)/242;
Writeln('a=',a,', b=',b,', a-b=',a-b)
end.
<u>Результат</u>
a=1597, b=2.5, a-b=1594.5
16 бит - это 2^16 = 65536 значений, значит 16 бит недостаточно для хранения одного такого иероглифа. Достаточно будет 17 бит, т.к. 2^17 = 131072
На один иероглиф требуется 17 бит.
85 568 иероглифов можно закодировать (17*85568)/(8*1024) ~ 177,6 Кбайт
87 019 иероглифов можно закодировать (17*87019)/(8*1024) ~ 180,6 Кбайт
Подходит ответ 2, 179 Кбайт хватит, чтобы закодировать 85568 иероглифов и не хватит, чтобы закодировать <span>87019 иероглифов.</span>
<span>Ans: 17,179,869,184 бит -> 2^34</span>