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

Question

Информатика

Славуха

5 апреля, 11:40

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

+2

Ответы (1)

Знаете ответ на вопрос?

Марюня · 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.