Var a,b,c,p: Real;
begin
writeln('Введите a,b,c,p');
readln(a,b,c,p);
writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.
Такс задача!?) Шучу... там надо закачать сначало анти вирус протереть диски и закачать
67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
354
235, 15
472, 35
417, 165
317, 35