uses crt; var x,i:integer; begin clrscr; writeln ('X Sin(x) Cos(x) Tg(x)'); i:=2; for x:=0 to 45 do begin write (x:2,' ',sin(x*pi/180):0:4,' ',cos(x*pi/180):0:4,' '); write (sin(x*pi/180)/cos(x*pi/180):0:4); writeln; i:=i+1; if i=24 then begin writeln ('Press Enter'); readkey; end; end; readln; end.