1

Привет! Давай попробуем вместе разгадать эту задачку. Так, нам нужно выбрать условные операторы, записанные в сокращённой форме. Есть четыре варианта ответа, и нам нужно определить, какие из них записаны именно сокращенно.

1. Посмотрим на первый вариант: if a<>b then a:=b else write('равны'); Здесь происходит проверка условия, и в случае, если оно истино (a не равно b), выполняется присваивание a:=b. Если же оно не истино (то есть a равно b), то выполняется команда write('равны'). Это не сокращённая форма, так как есть часть else.

2. Во втором варианте if a>=b then begin p:=a; a:=b; b:=p; end; присутствует блок begin ... end;, что тоже указывает, что это не сокращённая форма оператора.

3. Третий вариант if a>b then max:=a else max:=b; также содержит часть else, так что это также не сокращённая форма.

4. И, наконец, четвёртый вариант if a<>b then write('не равны'); - здесь команда write('не равны'); исполняется только тогда, когда условие истино (a не равно b), и нет else части. Значит, это сокращенная форма записи условного оператора.

Итак, правильный ответ - последний вариант. Удачи на экзаменах!