Помогите! Напишите код программы через Pascal. Даны катеты прямоугольного треугольника. Найдите его гипотенузу и площадь

Question

Информатика

Хизир

5 апреля, 01:07

Помогите! Напишите код программы через Pascal. Даны катеты прямоугольного треугольника. Найдите его гипотенузу и площадь

+5

Ответы (2)

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

Будовец · Answer 1

var a, b:real;

begin

write ('Введите катеты прямоугольного треугольника: ') ;

read (a, b) ;

writeln ('Гипотенуза прямоугольного треугольника равна: ', sqrt (a*a+b*b) : 0:3) ;

writeln ('Площадь прямоугольного треугольника равна: ', a*b*0.5) ;

end.

Демитрий · Answer 2

Program n1;

var a, b: real;

begin

writeln ('введите катеты прямоугльного треугольника: ') ;

readln (a, b) ;

writeln ('гипотенуза: ', sqrt (a*a+b*b)) ;

write ('площадь: ', a*b/2) ;

end.