Паскаль var a:integer; begin writeln('Введите любое число'); read(a); if (a больше 0) then a:=a+1; writeln(a); else a:=a-2; writeln(a); end. встречено else а ожидалось оператор?? Какая ошибка?

Паскаль var a:integer; begin writeln('Введите любое число'); read(a); if (a>0) then a:=a+1; writeln(a); else a:=a-2; writeln(a); end. встречено else а ожидалось оператор?? Какая ошибка?
Гость
Ответ(ы) на вопрос:
Гость
Тут не она ошибка, а множество. Должно быть так: var   a: integer; begin   writeln('Введите любое число');   read(a);   if (a > 0) then   begin     a := a + 1;     writeln(a)   end   else   begin     a := a - 2;     writeln(a)   end end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы