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

Question

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

helenodecca · Answer

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.