|  | 
|  | 
| вернуться в форум | My Solution Here: program sinus;var
 i,n,depth:integer;
 procedure calc(i:integer);
 var
 j:integer;
 begin
 if i=depth+1 then
 for j:=1 to depth do
 write(')')
 else
 begin
 write('sin(',i);
 if i<depth then
 if odd(i) then
 write('-')
 else
 write('+');
 calc(i+1);
 end;
 end;
 begin
 readln(n);
 for i:=1 to n-1 do
 write('(');
 for i:=1 to n-1 do
 begin
 depth:=i;
 calc(1);
 write('+',n-i+1,')');
 end;
 depth:=n;
 calc(1);
 writeln('+1');
 end.
OK,accept Послано zhbs  14 ноя 2002 12:49 | 
 | 
|