Программа на паскале для решения задачи - в прилагаемом файле
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
check comment ( pls delete )
А) Источник информации: учитель рассказывает об успеваемости ребёнка матери --> Приёмщик информации: Мама внимательно слушает учителя.
<span>Б) Источник информации: учитель объясняет новую тему на уроке --> Приёмщик информации: ученики внимательно слушают и запоминают информацию. </span>
<span>С) Источник информации: газеты содержат множество различной информации --> Приёмщик информации: ребёнок читает нужную ему информацию </span>
<span>Д) Источник информации и приёмщик информации: мама спрашивает у своей дочки, как она провела день, и слушает ответ на этот вопрос--->Приёмщик информации и источник информации: девочка слушает вопрос и отвечает на него</span>