Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Составить алгоритм для определения гипотенузы и периметра прямоугольного треугольника с катетами a,b.

Ответ оставил Гость

Program pr1;
Uses Crt;
Var a,b:integer;
    c,d:real;
Begin
WriteLn(Введите значение первого катета); Read(a);
WriteLn(Введите значение второго катета); Read(b);
c:=(a*a+b*b);
d:=sqrt(c);
WriteLn(Гипотенуза = , d);
ReadLn;
End.