Question

Mă poate ajuta cineva vă rog? (în programul pascal) ​

Answer 1

a)

begin

   Integer x,y;

   readln(a);

   if (x> := 0) then  

       y := 2*x

   else  

       y := x/2;

   writeln(y);

   Result := 0;

end;

b)

begin

   Integer x,y,z;

   readln(x);

   readln(y);

   if (x>2*y) then  

       z := sin(x+y)

   else  

       z := cos(x-y);

   writeln(z);

   Result := 0;

end;