В 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 и одна кнопка
1. Почтовый клиент (используя инкапсуляцию, почтовый клиент формирует пакеты для отправки на низких уровнях). 2. Почтовый клиент пересылает письмо на почтовый сервер отправителя. 3. Почтовый сервер отправителя ищет данные о DNS-зоне получателя. 4. Почтовый сервер отправителя ищет сведения о почтовом сервере получателя. 5. Почтовый сервер отправителя высылает на почтовый сервер получателя письмо. 6. Почтовый сервер получателя помещает письмо в ящик получателя. 7. Получатель при запуске почтового агента получает уведомление о доставке письма.
var a:real; //стоимость 1 открытки
i:real; // кол-во открыток
begin
write('введите цену 1 открытки a=');
read(a);
for i:=1 to 10 do
writeln(i/10:0:1,' открытки стоят ',i*a/10:0:2)