Question

Наберите на Паскаль программу вычисления гипотенузы по теореме Пифагора.
Даю 50 баллов.
Заранее спасибо

Answer 1

Ответ:

Program Gipotenuza;

var a,b,c:real;

begin

 writeln('Введите сторону a: ');

 readln(a);

 writeln('Введите сторону b: ');

 readln(b);

 c:=sqrt(a*a+b*b);

 writeln('Гипотенуза равна: ', c);

end.