Написать программу на Паскале. Заданы длины двух катетов в прямоугольном треугольнике. Найти длину гипотенузы, площадь треугольника.

Question

Информатика

Рома

24 июня, 00:45

Написать программу на Паскале. Заданы длины двух катетов в прямоугольном треугольнике. Найти длину гипотенузы, площадь треугольника.

+4

Ответы (1)

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

Грунятка · Answer 1

Program w;

var a, b, c, s:real;

begin

writeln ('Введите a, b') ;

readln (a, b) ;

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

s: = (a*b) / 2;

writeln ('Гипотенуза:') ;

writeln (c:4:2) ;

writeln ('Площадь:') ;

writeln (s:4:2) ;

end.