* Заголовков SMTP-протокола, полученных сервером. Эти заголовки могут включаться, а могут и не включаться в тело письма в дальнейшем, так что возможна ситуация, когда сервер обладает большей информацией о письме, чем содержится в самом письме. Так, например, поле RCPT TO указывает получателя письма, при этом в самом письме получатель может быть не указан. Эта информация передаётся за пределы сервера только в рамках протокола SMTP, и смена протокола при доставке почты (например, на узле-получателе в ходе внутренней маршрутизации) может приводить к потере этой информации. В большинстве случаев эта информация не доступна конечному получателю, который использует не-SMTP протоколы (POP3, IMAP) для доступа к почтовому ящику. Для возможности контролировать работо системы эта информация обычно сохраняется в журналах почтовых серверов некоторое время. * Самого письма (в терминологии протокола SMTP — 'DATA'), которое, в свою очередь, состоит из следующих частей, разделённых пустой строкой: * Заголовков письма, иногда называемых по аналогии с бумажной почтой конвертом (англ. envelope). В заголовке указывается служебная информация и пометки почтовых серверов, через которые письмо, пометки о приоритете, указание на адрес и имя отправителя и получателя письма, тема письма и другая информация. С термином «конверт» есть некоторая путаница, потому что в зависимости от ситуации «конвертом» называют либо заголовок письма, либо информацию, которой располагает SMTP-сервер после получения письма (так, например, в документации к почтовому серверу postfix, термин «конверт» используется в отношении SMTP-данных, включающих не только поля RCPT TO и MAIL FROM, но и IP-адрес отправителя, его строчка HELO и т. д. ) * Тела письма. В теле письма находится, собственно, текст письма. Согласно стандарту, в теле письма могут находиться только символы ASCII. Поэтому при использовании национальных кодировок или различных форм представления информации (HTML, RTF, бинарные файлы) текст письма должен кодироваться по стандарту MIME и не может быть прочитан человеком без использования декодера или почтового клиента с таким декодером.
1. var a:integer; begin write('Введите целое число : '); readln(a); if a>0 then writeln('Число - положительное ') else writeln('Данное число не является положительным '); if a=0 then writeln('Число равно нулю'); readln; end.
2. var a:integer; begin write('Введите целое число : '); readln(a); if a>0 then writeln('Число - положительное ') else writeln('Данное число не является положительным '); readln; end.
3. var a,b:integer; begin write('Введите два числа : '); readln(a,b); if a>b then writeln(a,#10,b) else writeln(b,#10,a); readln; end.
4. var a, b: integer; begin writeln('Введите два числа'); readln(a, b); if a < b then writeln('Порядковый номер меньшего числа = 1'); if b < a then writeln('Порядковый номер меньшего числа = 2'); if a = b then writeln('Числа равны'); end.
5. var a:integer; begin write('Введите число: '); readln(a); if a>0 then writeln(a); if a<0 then writeln(a*-1); readln; end.
6. var a,b,c,n:real; begin writeln('Введите три числа : '); readln(a,b,c); n:=a; if b<n then n:=b; if c<n then n:=c; writeln('Меньшее из введённых чисел : ',n); readln; end.
* Заголовков SMTP-протокола, полученных сервером. Эти заголовки могут включаться, а могут и не включаться в тело письма в дальнейшем, так что возможна ситуация, когда сервер обладает большей информацией о письме, чем содержится в самом письме. Так, например, поле RCPT TO указывает получателя письма, при этом в самом письме получатель может быть не указан. Эта информация передаётся за пределы сервера только в рамках протокола SMTP, и смена протокола при доставке почты (например, на узле-получателе в ходе внутренней маршрутизации) может приводить к потере этой информации. В большинстве случаев эта информация не доступна конечному получателю, который использует не-SMTP протоколы (POP3, IMAP) для доступа к почтовому ящику. Для возможности контролировать работо системы эта информация обычно сохраняется в журналах почтовых серверов некоторое время.
* Самого письма (в терминологии протокола SMTP — 'DATA'), которое, в свою очередь, состоит из следующих частей, разделённых пустой строкой:
* Заголовков письма, иногда называемых по аналогии с бумажной почтой конвертом (англ. envelope). В заголовке указывается служебная информация и пометки почтовых серверов, через которые письмо, пометки о приоритете, указание на адрес и имя отправителя и получателя письма, тема письма и другая информация. С термином «конверт» есть некоторая путаница, потому что в зависимости от ситуации «конвертом» называют либо заголовок письма, либо информацию, которой располагает SMTP-сервер после получения письма (так, например, в документации к почтовому серверу postfix, термин «конверт» используется в отношении SMTP-данных, включающих не только поля RCPT TO и MAIL FROM, но и IP-адрес отправителя, его строчка HELO и т. д. )
* Тела письма. В теле письма находится, собственно, текст письма. Согласно стандарту, в теле письма могут находиться только символы ASCII. Поэтому при использовании национальных кодировок или различных форм представления информации (HTML, RTF, бинарные файлы) текст письма должен кодироваться по стандарту MIME и не может быть прочитан человеком без использования декодера или почтового клиента с таким декодером.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if a>0 then
writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
if a=0 then
writeln('Число равно нулю');
readln;
end.
2.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if a>0 then
writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
readln;
end.
3.
var
a,b:integer;
begin
write('Введите два числа : ');
readln(a,b);
if a>b then
writeln(a,#10,b) else
writeln(b,#10,a);
readln;
end.
4.
var
a, b: integer;
begin
writeln('Введите два числа');
readln(a, b);
if a < b then writeln('Порядковый номер меньшего числа = 1');
if b < a then writeln('Порядковый номер меньшего числа = 2');
if a = b then writeln('Числа равны');
end.
5.
var
a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then
writeln(a);
if a<0 then
writeln(a*-1);
readln;
end.
6.
var
a,b,c,n:real;
begin
writeln('Введите три числа : ');
readln(a,b,c);
n:=a;
if b<n then
n:=b;
if c<n then
n:=c;
writeln('Меньшее из введённых чисел : ',n);
readln;
end.