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

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

What's wrong with my program?
Послано Temp 1 июл 2002 06:14
Program P1149;
  Var
    Temp,N:Integer;

  Procedure A(Num:Integer);
    Var
      Temp:Integer;
    Begin
      For Temp:=1 To Num Do
        Begin
          Write('sin(');
          If Temp=Num Then Write(Num,')')
            Else If Temp=1 Then Write(Temp,'-')
              Else Write(Temp,'+');
        End;
      For Temp:=1 To Num-1 Do Write(')');
    End;

  Begin
    Readln(N);
    For Temp:=1 To N-1 Do Write('(');
    For Temp:=1 To N Do
      Begin
        A(Temp);
        Write('+',N-Temp+1);
        If Temp<>N Then Write(')');
      End;
  End.
if odd(temp) then write('-') else write('+')
Послано Maigo Akisame (maigoakisame@yahoo.com.cn) 18 июл 2004 08:04