ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1149. Танцы синуса

My Solution Here:
Послано Destiny 11 ноя 2002 18:03
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