a fost răspuns

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

Mă Poate Ajuta Cineva Vă Rog În Programul Pascal class=

Răspuns :

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;

Ask Alte intrebari