begin writeln('Введите длину основания a'); write('a = '); readln(a); writeln('Введите длину высоты h'); write('h = '); readln(h); s:=0,5*a*h; write(Площадь треугольника с основанием ',a',' и высотой ',h,' равна = ',s); readln; readln; end.
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 и одна кнопка
var
a,h,s:real;
begin
writeln('Введите длину основания a');
write('a = ');
readln(a);
writeln('Введите длину высоты h');
write('h = ');
readln(h);
s:=0,5*a*h;
write(Площадь треугольника с основанием ',a',' и высотой ',h,' равна = ',s);
readln;
readln;
end.