Пусть An=sin(1–sin(2+sin(3–sin(4+...sin(n))...) и пусть
Sn=(...(A1+n)A2+n-1)A3+...+2)An+1.
Для известного N найти Sn
Исходные данные
N <= 200
Результат
Sn
Пример исходных данных
3
Пример результата
((sin(1)+3)sin(1–sin(2))+2)sin(1–sin(2+sin(3)))+1
Решение может выглядеть следующим образом:
{$APPTYPE CONSOLE}
var n:byte;
procedure sinus(n:byte);
var i:byte;
begin
for i:=1 to n do begin
write(′sin(′);write(i);
if i<n then
if odd(i)then write(′-′)
else write(′+′)
else write(′)′);
end;
for i:=1 to n-1 do write(′)′);
end;
procedure dance(n:byte);
var i:byte;
begin
for i:=1 to n-1 do write(′(′);
for i:=n downto 1 do
begin
sinus(n-i+1);
write(′+′);
write(i);
if i<>1 then write(′)′);
end;
end;
begin
readln(n);
dance(n);
end.
|
