Составить программу на паскаль:найти гипотенузу если известно 2 катета
Составить программу на паскаль:найти гипотенузу если известно 2 катета
Гость
Ответ(ы) на вопрос:
Гость Program N_1;
Var a ,b: real;
Begin
write('Введите числа a,b: ');
readln(a,b);
writeln('Гипотенуза равна = ' ,sqr(a)+sqr(b):0:2);
readln;
End.
Не нашли ответ?
Похожие вопросы