Написать линейную программу по нахождению периметра прямоугольного треугольника если известны 2 катета
Vara, b, c, p: real;
beginwriteln(Введите 1 катет:);readln(a);writeln(Введите 2 катет:);readln(b);p := a + b + sqrt(a * a + b * b);writeln(Периметр: );write(p);end.
Оцени ответ
