Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
А) 40960 бит
б) 1.5 Кбайт = 1536 байт
в) 0.00024 Кбайт = 0.25 байт
г) 1.5 Гбайт = 1572864 Кбайт
д) если 2_ значит 2 умножить, то так:
2(262144) байт = 2(2097152)
Если в задании опечатка и там нет2 то так:
524288 = 4194304 бит