СИ-2014

[SchodingersCatt]

uses crt;
var s,si,x:real;
i,n:integer;
function fact(x:integer):longint;
begin
if (x=1) or (x=0) then fact:=1 else fact:=fact(x-1)*x;
end;
begin
write('x = ');readln(x);
repeat
write('n>0, n = ');readln(n);
until n>0;

s:=0;
for i:=1 to n do
begin

si:=Power(-1,i+1)*Power(x,2*i-1)/fact(2*i-1);
s:=s+si;
end;
writeln('s = ',s:0:5,', sin(',x:0:2,') = ',sin(x):0:5);
end.