треугольник авс написать программу для вычесления Р и S

вы случайно не на программиста учитесь ??? второй курс??

11 класс, Математическая школа

..простите ...значит я вас с кем-то другим перепутала ...простите пожалуйста

Бывает=))

:)

var a,b,c,p:integer;s,p1:real;beginwriteln('a=');readln(a);writeln('b=');readln(b);writeln(c);readln(c);p:=a+b+c;p1:=(a+b+c)/2;s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));writeln('perimetr=',p,' plosciadi=',s);readln;end.