Катеты прямоугольного треугольника a и b соответственно равны 125, 127. написать программу, определяющую площадь и периметр треугольника.

Var   a, b, c: real; begin   a : = 125;   b : = 127;   c : = sqrt( sqr(a) + sqr(b)  );         writeln('s =  ', a * b / 2);     writeln('p =  ', a + b + c); end.

Var   xl,xr,h,x: real;   i: integer; begin   write('введите левую и правую границы изменения х, затем шаг: ');   read(xl,xr,h);   for i: =1 to trunc((xr-xl)/h)+1 do begin       x: =xl+(i-1)*h;       writeln(x: 0: 4,'  ',abs(sin(x))+cos(abs(       end end. пример введите левую и правую границы изменения х, затем шаг: 1.2 3 0.18 1.2000  1.2943968404439 1.3800  1.17149436167019 1.5600  1.01073783728823 1.7400  0.817321730886476 1.9200  0.597495822534427 2.1000  0.358363262049017 2.2800  0.107651047653376 2.4600  -0.146539653537401 2.6400  -0.395995275405633 2.8200  -0.632655254626053 3.0000  -0.848872488540578

Uses crt; constn = 10; vari,b: integer; mas : array[1..n] of integer; v: array[1..n]of integer; max_num, max_index,g,c: integer; begin  writeln('введите элементы массива'); for i: =1 to n do readln(mas[i]); for i : = 2 to n doif mas[i] > max_num then beginmax_index : = i; max_num : = mas[i]; end; writeln('введите элементы массива'); for b: =1 to n do readln(v[b]); for b : = 2 to n doif v[b] > g then beginc : = b; g : = v[b]; end; if g< max_num then writeln('максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('максимальное число во втором массиве ',g,' находится на позиции ',c); end.