Найдите гипотенузу прямоугольного треугольника по двум катетам A и B (в паскале)
Var a,b,c:real;
begin
writeln(введите два катета);
readln(a,b);
c:=sqrt(sqr(a)+sqr(a));
writeln(c);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var a,b,c:real;
begin
writeln(введите два катета);
readln(a,b);
c:=sqrt(sqr(a)+sqr(a));
writeln(c);
end.