А4. В каком из условных операторов допущена ошибка? 1) if b=0 then writeln ('Деление не возможно'); 2) if a<b then min:=a; else min:=b; 3) if a>b then max:=a else max:=b; 4) if (a>b) and (b>0) then c:=a+b.

Рассмотрим каждый вариант:

1. if b=0 then writeln ('Деление не возможно'); — Синтаксически верно. Это условие проверяет, равен ли b нулю, перед выполнением операции деления (которая не указана явно, но подразумевается в контексте сообщения).

2. if a — Синтаксически верно. Оператор присваивания := используется правильно.
3. if a>b then max:=a else max:=b; — Синтаксически верно. Аналогично предыдущему пункту.
4. if (a>b) and (b>0) then c:=a+b. — Синтаксическая ошибка. После выполнения команды c:=a+b стоит точка ., которая в данном контексте (внутри if, без begin..end) является недопустимой. Точка ставится после последнего оператора в блоке begin..end или после всей программы.

Ответ: 4) if (a>b) and (b>0) then c:=a+b.