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