МM
Макс M@razm
помогите составить программу по паскалю
вычислить периметр и площадь прямоугольного треугольника по длинам его катетов
найдите значение выражение по формуле ln(2+ квадратный корень (atctg x*sin1/x)
вычислить периметр и площадь прямоугольного треугольника по длинам его катетов
найдите значение выражение по формуле ln(2+ квадратный корень (atctg x*sin1/x)
program treugolnik;
uses crt;
var
a,b,c,s,p:real;
begin
readln(a,b);
s:=a*b/2;{нашли площадь}
c:=sqrt(a*a+b*b);{нашли третью сторону по теореме пифагора}
p:=a+b+c;{перимитр}
writeln(p,' ',s);
end.
{вторая программа}
program pop;
uses crt;
var
x:real;
begin
readln(x);
writeln( ln(2+sqrt(arctan(x)*sin(1/x))));
end.