Компьютерные сети. такое : проведите исследование и выясните, что понимают под термином "компьютерные сети". только не надо копировать из вики, своими словами, так как вы понимаете, должно получиться типа опроса. нужно!

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

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.