• Var
    f,f1,otladka:text;
    m,n,i,j,c:integer;
    ext:string;
    Begin
    assign(f,'CHESS.IN');
    assign(f1,'CHESS.OUT');
    assign(otladka,'Отладка.log');
    reset(f);
    rewrite(f1);
    rewrite(otladka);
    read(f,m,n,i,j,c);
    if (m*n mod 2=0)
    then
    begin
    writeln(otladka,'Поле делится на 2');
    ext:='equal'
    end
    else
    writeln(otladka,'Поле не делится на 2');
    begin
    if(c=0)
    then
    writeln(otladka,'Клетка (j;i) - черная');
    if(j+i mod 2=0)
    then
    begin
    writeln(otladka,'j+i делится на 2');
    ext:='black'
    end
    else
    begin
    ext:='white';
    writeln(otladka,'j+i не делится на 2')
    end
    else
    begin
    writeln(otladka,'Клетка (j;i) - черная');
    if(j+i mod 2=0)
    then
    writeln(otladka,'j+i делится на 2');
    ext:='white'
    else
    writeln(otladka,'j+i не делится на 2');
    ext:='black';
    end;
    end;
    write(f1,ext);
    close(f);
    close(f1);
    close(otladka);
    End.
    Что тут не правильно? Выдает ошибку на 36 строке: Встречено 'else', а ожидалось ';', если ставлю перед else ;, пишет: Встречено 'else', а ожидался оператор

Ответы 6

  • Добавил переменную otladka, чтобы посмотреть в чем проблема(т.к. выдавались неправильные рез-ты) и тогда пошли проблемы
  • ппц задача, но я всё равно не знаю, как решить :D
    • Автор:

      hale
    • 6 лет назад
    • 0
  • фааак)
    • Автор:

      weaver
    • 6 лет назад
    • 0
  • К олимпиаде готовлюсь))
    • Автор:

      gillespie
    • 6 лет назад
    • 0
  • удачи :3
    • Автор:

      ayden420
    • 6 лет назад
    • 0
  • ты написал подряд 2 else, где if между ними?
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years