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

Question

Информатика

Атлант

28 июля, 23:21

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

+2

Ответы (2)

Знаете ответ?

Варакса · Answer 1

Program n1;

var a, b: real;

begin

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

readln (a, b) ;

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

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

end.

Йарманд · Answer 2

var a, b:real;

begin

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

read (a, b) ;

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

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

end.