Question

Решите задачу по информатике на языке Pascal. Даны катеты прямоугольного треугольника,найти его периметр​

Answer 1

Ответ:

Объяснение:

1

2

3

4

5

6

7

8

var

 a,b: real;

begin

 write('Vvedite kateti a, b: ');

 readln(a,b);

 writeln('P = ',a + b + sqrt(a*a+b*b):0:2);

 readln;

end.