Question

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

Answer 1

var a,b,c,p:integer;
s,p1:real;
begin
writeln('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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

Бывает=))

Answer 6

:)