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

Question

Информатика

Боряха

11 декабря, 00:13

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

+5

Ответы (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.