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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт