ОТТДАЮ ВСЕ БАЛЛЫ!!! ЗАДАНИЕ СРОЧНОЕ!!! (учебника у самого нету))) думаю если вы шарите...

Question

ОТТДАЮ ВСЕ БАЛЛЫ!!! ЗАДАНИЕ СРОЧНОЕ!!! (учебника у самого нету))) думаю если вы шарите вам это не составит трудность написать небольшой код​

---

Answer 1

var a,b,c,p,p2:real;

begin

writeln('a,b,c ');readln(a,b,c);

p:=(a+b+c)/2;

p2:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Perimetr= ',p2:0:3)

end.

Вот теперь можешь под себя переделать