1. Почтовый клиент (используя инкапсуляцию, почтовый клиент формирует пакеты для отправки на низких уровнях). 2. Почтовый клиент пересылает письмо на почтовый сервер отправителя. 3. Почтовый сервер отправителя ищет данные о DNS-зоне получателя. 4. Почтовый сервер отправителя ищет сведения о почтовом сервере получателя. 5. Почтовый сервер отправителя высылает на почтовый сервер получателя письмо. 6. Почтовый сервер получателя помещает письмо в ящик получателя. 7. Получатель при запуске почтового агента получает уведомление о доставке письма.
В edit1,2,3 вводишь числа, потом их делешь 2 mod edit и смотришь равно ли это нулю иди нет если не равно тогда подходит, берешь второе число такие действия если оно подходит тогда сравниваешь с первым и смотришь что больше и так с третьем. var n1,n2,n3,max:word; begin if 2 mod strtoint(edit1.text) <> 0 then n1:=strtoint(edit1.text); if 2 mod strtoint(edit2.text) <> 0 then n2:=strtoint(edit2.text); if 2 mod strtoint(edit3.text) <> 0 then n3:=strtoint(edit3.text); if n1>>n2 then max:= n1 else max:=n2; if max<n3 then max:=n3; edit4.text:= inttostr(max); на форме 4 edit и одна кнопка
2. Почтовый клиент пересылает письмо на почтовый сервер отправителя.
3. Почтовый сервер отправителя ищет данные о DNS-зоне получателя.
4. Почтовый сервер отправителя ищет сведения о почтовом сервере получателя.
5. Почтовый сервер отправителя высылает на почтовый сервер получателя письмо.
6. Почтовый сервер получателя помещает письмо в ящик получателя.
7. Получатель при запуске почтового агента получает уведомление о доставке письма.