Question

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

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.