Question

Составить программу, которая запрашивает у пользователя катеты прямоугольного треугольника a и b.

Расчитывает и выводит его гипотенузу c и периметр P

прмиечание: использовать тип данных REAL

Пример работы программы:

Введите катеты прямоугольного треугольника a и b

a = 3

b = 4

Гипотенуза c =5

Периметр P=12

Answer 1

program triangle;
var
  a, b, c, P: real;
begin
  writeln('Введите катеты прямоугольного треугольника a и b');
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  
  c := sqrt(a*a + b*b);
  P := a + b + c;
  
  writeln('Гипотенуза c = ', c:0:2);
  writeln('Периметр P = ', P:0:2);
end.