Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале

Question

Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале

---

Answer 1

Const
  a=-10;
  b=1;
var
  i: integer; 
begin
  for i:=a to b do
  writeln('F1(',i,')=',1/Tan(i));
end. 


Const
  a=2;
  b=10;
var
  i: integer;
  x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
  begin
  x:=i;
  f:=power(x,3/5);
  writeln(f);
  if f  if f>max then max:=f;
  end;
writeln('min=',min);
writeln('max=',max);
end. 

Comments

все верно