1) перечислите компоненты электронного письма. 2) в чем отличия теле конференции от электронной почты? !

1)электронное письмо состоит из следующих частей:   * заголовков smtp-протокола, полученных сервером. эти заголовки могут включаться, а могут и не включаться в тело письма в дальнейшем, так что возможна ситуация, когда сервер обладает большей информацией о письме, чем содержится в самом письме. так, например, поле rcpt to указывает получателя письма, при этом в самом письме получатель может быть не указан. эта информация передаётся за пределы сервера только в рамках протокола smtp, и смена протокола при доставке почты (например, на узле-получателе в ходе внутренней маршрутизации) может приводить к потере этой информации. в большинстве случаев эта информация не доступна конечному получателю, который использует не-smtp протоколы (pop3, imap) для доступа к почтовому ящику. для возможности контролировать работоспособность системы эта информация обычно сохраняется в журналах почтовых серверов некоторое время.  * самого письма (в терминологии протокола smtp — 'data'), которое, в свою очередь, состоит из следующих частей, разделённых пустой строкой:   * заголовков письма, иногда называемых по аналогии с бумажной почтой конвертом (. envelope). в заголовке указывается служебная информация и пометки почтовых серверов, через которые прошло письмо, пометки о приоритете, указание на адрес и имя отправителя и получателя письма, тема письма и другая информация. с термином «конверт» есть некоторая путаница, потому что в зависимости от ситуации «конвертом» называют либо заголовок письма, либо информацию, которой располагает smtp-сервер после получения письма (так, например, в документации к почтовому серверу postfix, термин «конверт» используется в отношении smtp-данных, включающих не только поля rcpt to и mail from, но и ip-адрес отправителя, его строчка helo и т. д. )  * тела письма. в теле письма находится, собственно, текст письма. согласно стандарту, в теле письма могут находиться только символы ascii. поэтому при использовании национальных кодировок или различных форм представления информации (html, rtf, бинарные файлы) текст письма должен кодироваться по стандарту mime и не может быть прочитан человеком без использования декодера или почтового клиента с таким декодером.2) телеконференция -это, прежде всего, способ общения большого числа пользователей сети, интересующихся определенной темой. таких тем может быть неограниченное количество. к примеру, rec.arts.books - название телеконференции, посвященной вопросам искусства и , а sci.econ - проблемам .  основным достоинством является возможность получения практически любой информации в достаточно короткие сроки. телеконференции могут быть не только интерактивными, реализуемыми в режиме on-line, но и вестись с любой задержкой, то есть осуществляться в режиме off-line.  надеюсь понятно?   а отличается тем что в эл. сообщениях нельзя видеть человека.

program sss;

uses crt;

var s: string;

            i,k,m: integer;

begin

clrscr;

readln(s);

for i: =1 to length(s)-2 do

begin

if ( (s[i] = 'т') or (s[i] = 'т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'о') ) and ( (s[i+2] = 'м') or (s[i+2] = 'м')  then

begin

                k: =1;

                break;

end;

end;

if k = 1 then writeln('да')

else writeln('нет');

readkey;

end. 

 

 

1) var a: array [1..2] of real;

          b: array [1..20] of real;

          i: integer;

          c: boolean;

  begin

  c: =false;

  readln(a[1],a[2]);

  for i: =1 to 20 do begin

                            readln(b[i]);

                            if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;

                            if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;

                            end;

  if c=false then writeln('совпадений не найдено');

end.

2) var a: array[1..10] of real;

    npol,notr,i: integer;

    begin

    npol: =0;

    notr: =0;

    for i: =1 to 10 do begin

                              readln(a[i]);

                              if a[i]> 0 then npol: =npol+1;

                              if a[i]< 0 then notr: =notr+1;

                              end;

    writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.