Var
s,p:real;
i,j:integer;
a:array[1..3]of real;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[j]>a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p
end;
if a[1]+a[2]>a[3] then
begin
p:=(a[1]+a[2]+a[3])/2;
s:=sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));
for i:=1 to 3 do
write(a[i],' ');
writeln;
writeln('Площадь треугольника: ',s);
end
else writeln('Треугольник не существует');
<span>end.</span>
Держи ответ. формулы для пепевода 8=4:2:1. 16=8:4:2:1
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
if a.IsEven then a+=1;
Writeln(Range(a,b,2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 8 150
580554122049849093827527200003507344139941951124024707479403873680711622959632935925467423493256663987453900243591243743896484375
I=a*b*i
1мб=800*600*i
1мб=
бит=8388608 бит
800*600=480000(на 1 страницу)
480000*2=960000(на 2 страницы)
i=
i=
i=9
Ответ: Можно использовать максимум 512 цветов