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

Question

Информатика

Хизир

13 марта, 09:32

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

+5

Ответы (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.