Вопрос Что не так в программе?

[Андрей959595]

Помогите, паскаль!

 

[wudi2014]

Давно не кодил на паскале, но вроде после условия оператора then не хватает ;

 

[саня853]

Если при истинном условии необходимо выполнять несколько операторов, то их по правилам языка Pascal необходимо заключать в блок, начинающийся со служебного слова begin и заканчивающегося служебным словом end. Такой блок принято называть операторными скобками, а данную конструкцию — составным оператором: if логическое выражение then begin оператор1; оператор2; end else begin оператор1; оператор2; end; --- Неверный синтаксис если вкратце. Переписывай.

 

[кеуен]

поставьте скобки, чтобы явно указать приоритеты операций внутри if В паскале приоритеты сделаны по-идиотски

 

[Артур.]

program abc; var a,b:integer; c:real; begin readln (a); readln (b); if (((a mod 2)=0) and ((b mod 2)=0)) or (((a mod 2)=1) and ((b mod 2)=1)) then c:=abs((b-a)/2) else c:=abs((b-a)/2)-1/2; writeln(c); readln; end.

 

[qwerty999]

У вас скобок не хватает… А по сути, достаточно сделать обратную проверку odd(a)=odd(b)