Даны длины катетов прямоугольного треугольника. Вычислить длину гипотезу и площадь. Написать программу и блок-схему.

Question

Михаил Калашников

Информатика

12 августа, 16:00

Даны длины катетов прямоугольного треугольника. Вычислить длину гипотезу и площадь. Написать программу и блок-схему.

+3

Ответы (1)

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

Егор Усов · Answer 1

var a, b, c, s:real;

begin

writeln ('Введите длины катетов');

readln (a, b);

c:=sqrt (sqr (a) + sqr (b));

s: = (a*b) / 2;

writeln ('Длина гипотенузы = ', c);

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

end.