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