Question

am nevoie de ajutor la crearea a doua programe la Pascal, va rog

1)unde:

x^2+y^2-cosx

2)unde :

t-true daca x nu este egal cu 100

Answer 1

program P1;
var
   x, y, z: Integer;
 begin
   x := ???;
   y := ???;
    z := x*x + y*y - cos(x)
 end.

program P2;
var
   t: Boolean;
   x: Integer; begin
   x := ???;
   t := not (x=100)
 end.