Question

Написать программу,запрашивающую длины катетов и вычисляющую длину гипотенузы

Answer 1

Var k1,k2,g:real;
begin
writeln('input k1,k2); readln(k1,k2);
g:=sqrt(sqr(k1)+sqr(k2);
writeln('g=',g);
end.