Нужно написать две программы

Question

Нужно написать две программы

---

Answer 1

c. Program n1;

Var

x:integer;

Begin

Read(x);

If x =0 then writeln('y=sin x²');

Else if x>0 thenwriteln('cos²x');

End.

D.program n2;

Var a:integer

b:integer;

Begin

Read(a);

Read(b);

If a>b then write('y=a-b')

Else if a Else write('y=a(b-1);

End.