Паскал есеп шыгаруга комектесіңіздерші!

Question

Осы екі есепті шыаруға көмектесіңіздерші жәнеде праграммасын қалай құруға болады!

Answer 1

Program esep1; const pi:=3.14 Var x,y,:real; Begin Write('x-тин манин енгиз'); Read(x); If x 1 then pi*x/7 else arccos*x ; Write('y=',y); End.