Помогите, пожалуйста, с заданием по информатике: Написать ** паскале (1-tg x)^ctgx + cos...

Question

Помогите, пожалуйста, с заданием по информатике:
Написать на паскале (1-tg x)^ctgx + cos (x-y)

Answer 1

Program qq;varx,y,s,x1,x2,y1,e:real;i,c:integer;beginwriteln('введите х ');read(x);writeln('введите y ');read(y);s:=1;x1:=cos(x);x2:=sin(x);y1:=cos(y);e:=((x1/x2)+(x1-y1));c:=trunc(e);for i:= 1 to c do begins:=s*(1-tan(x));end;writeln(s);end.

Comments

program qq;
var
x,y,s,x1,x2,y1,e:real;
i,c:integer;
begin
writeln('введите х ');
read(x);
writeln('введите y ');
read(y);
s:=1;
x1:=cos(x);
x2:=sin(x);
y1:=cos(y);
e:=((x1/x2)+(x1-y1));
c:=trunc(e);
for i:= 1 to c do begin
s:=s*(1-tan(x));
end;
writeln(s);
end.