Delete
End
3. Укажите жизненные ситуации, в которых осуществляется:
а) получение информации:
Ученик слушает объяснения учителя
Пятиклассник заполняет календарь погоды
Папа слушает по авторадио информацию о пробках на дороге
Мальчик фотографируется с другом
Бабушка пробует на вкус варенье, приготовленное по новому
рецепту
б) передача информации:​

Ученик слушает объяснения учителя

Папа слушает по авторадио информацию о пробках на дороге

Объяснение:

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.