Question

Напиши программу, которая вычисляет гипотенузу по двум катетам. (паскаль,все слова только на английском)​

Answer 1

Вывод, для удобства, нужно на русском, чтобы было понятно!

var a, b, c:real;

begin

writeln('Доброго времени суток! Данная программа вычисляет гипотенузу по введённым значениям катетов');

writeln('Введите длину первого катета');

readln(a);

writeln('Введите длину второго катета');

readln(b);

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

writeln('В прямоугольном треугольнике с катетами  ', a, '  и  ', b, '  гипотенуза равна  ', c);

end.