Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп
Это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.
Program Digit; Var a, a1, a2, a3: Integer; Label Start; Begin Start: WriteLn('Введите трехзначное число'); ReadLn(a); If (a < 100) Or (a > 999) Then Begin WriteLn('Вы ввели не трехзначное число'); Goto Start; End; a1 := a div 100; a2 := (a - a1 * 100) div 10; a3 := a - a1 * 100 - a2 * 10; If a1 > a3 ThenWriteLn('Первая цифра больше последней') Else Writeln('Последняя цифра больше первой'); If a1 > a2 Then WriteLn('Первая цифра больше второй') Else Writeln('Вторая цифра больше первой'); If a2 > a3 Then WriteLn('Вторая цифра больше последней') Else Writeln('Последняя цифра больше второй'); ReadLn; End.
5) Источник: учитель Приемник: класс
Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп
6) Источник: регулировщик Приемник: водители, пешеходы
Это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.
7) Источник: газета Приемник: человек.
Объяснение:
Var a, a1, a2, a3: Integer;
Label Start;
Begin
Start:
WriteLn('Введите трехзначное число');
ReadLn(a);
If (a < 100) Or (a > 999) Then
Begin
WriteLn('Вы ввели не трехзначное число');
Goto Start;
End;
a1 := a div 100;
a2 := (a - a1 * 100) div 10;
a3 := a - a1 * 100 - a2 * 10;
If a1 > a3 ThenWriteLn('Первая цифра больше последней')
Else
Writeln('Последняя цифра больше первой');
If a1 > a2 Then
WriteLn('Первая цифра больше второй')
Else
Writeln('Вторая цифра больше первой');
If a2 > a3 Then
WriteLn('Вторая цифра больше последней')
Else
Writeln('Последняя цифра больше второй');
ReadLn;
End.