Question

Язык програмирования PASKAL/ задача: Даны катеты прямоугольного треугольника .Найти его гипотенузу

Answer 1

Program pr_1;
a, b:integer;
begin
a := readln()
b := readln()
writeln((a * a + b * b) ** 0.5);
end.

Answer 2

Конечно, давайте решим эту задачу на языке программирования Pascal. Для нахождения гипотенузы прямоугольного треугольника используется теорема Пифагора, которая гласит, что квадрат гипотенузы равен сумме квадратов катетов.

Вот пример кода на Pascal:

program FindHypotenuse;

var
  a, b, c: real;

begin
  // Ввод катетов
  write('Введите длину первого катета: ');
  readln(a);
  
  write('Введите длину второго катета: ');
  readln(b);

// Нахождение гипотенузы по теореме Пифагора
  c := sqrt(a*a + b*b);

// Вывод результата
  writeln('Гипотенуза треугольника: ', c:0:2);
end.

В этом коде мы используем переменные `a` и `b` для хранения длин катетов и переменную `c` для гипотенузы. Функция `sqrt` используется для вычисления квадратного корня.

Просто скопируйте этот код в среду разработки Pascal (например, Lazarus) и запустите программу. Вводите длины катетов, и программа выведет длину гипотенузы.