Var a, b, c:real; begin writeln('Введите длины катетов прямоугольного треугольника: '); read (a, b); c := sqrt( sqr(a) + sqr(b) ); writeln('Гипотенуза равна ', c); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
