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

Question

Савва Макаров

Информатика

19 июня, 13:05

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

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Екатерина Колесникова · Answer 1

Pascal ABC

var a, b, c, P: integer;

p, s: real;

begin

read (a, b, c);

P: = a+b+c;

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

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

writeln ('Периметр треугольника = ', P);

writeln ('Площадь треугольника = ', s);

end.