Пример систем, в которых должны быть выделены источник, приёмник, носитель и канал передачи информации.

Например ученик и источник инф. - учитель, приемник - ученик, носитель инф. - звуковая волна, а канал передачи - воздух. или компьютер и человек. источник - компьютер, приемник - ученик, носитель - на экране изображение(документ или что-то канал передачи - монитор.

Телевидение. источник: телебашня(останкинская, например) приёмник: антенна носитель: телекомпания канал передачи информации: волны

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

 

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.