Сделать программу в паскале абс по следующей . найти стороны прямоугольного треугольника, если катит больше другого в 2 раза.

Новичок345 Новичок345    1   21.06.2019 19:50    2

Ответы
Sergeyii Sergeyii  17.07.2020 08:53
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика