Сделать программу в Паскале АБС по следующей задаче.
Найти стороны прямоугольного треугольника, если катит больше другого в 2 раза.
Var
a,b,c:real;
begin
Write(Введите длину меньшего катета -> ); Readln(a);
b:=2*a; c:=sqrt(a*a+b*b);
Writeln(Длина большего катета ,b,, длина гипотенузы ,c)
end.
Тестовое решение:
Введите длину меньшего катета -> 15.63
Длина большего катета 31.26, длина гипотенузы 34.9497424883217
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
