Общее Можно посылать текст Можно посылать вложение типа фотографии, если хватает места/веса Указывается адрес получателя и адрес отправителя Может быть не доставлено из за неверного адреса или из за технических сбоев. Можно перенаправить письмо Дата прохождения через почтовую службу может служить подтверждением времени в различных спорах и разбирательствах Возможно использовать шифрование
Плюсы бумажной почты Письмо и вложения реальны и не требуют спец средств для прочтения Очень разнообразные доставки - голубиная почта, курьерская почта и тд Количество спама обычно меньше чем в электронной почте Можно послать письмо без указания обратного адреса
Плюсы электронной почты Скорость доставки Бесплатно Значительно легче шифровать/разшифровать, чем бумажную Возможность получить подтверждение о получении, прочтении Возможность настройки автоматического ответа (например если в отпуске) Возможность отослать одно письмо множеству получателей Копия отправленного письма остается у отправителя Получить почту можно из любой точки интернета, а не в определенном месте (почтовый ящик) Можно иметь множество электронных почтовых ящиков
Var a,z,s,i,m:integer; begin readln(a); s:=0; z:=a; for i:=1 to 3 do begin s:=s+(z mod 10); z:=z div 10; end; if s mod 2 = 0 then writeln('1. Верно')else writeln('1. Неверно'); z:=a; s:=z mod 10; z:=z div 10; m:=0; for i:=1 to 2 do begin if s < z mod 10 then begin m:=1; break; end else begin s:=z div 10; z:=z div 10; end; end; if m = 0 then writeln('2. Верно')else writeln('2. Неверно'); z:=a; m:=0; for i:=1 to 3 do begin if z mod 10 = 5 then begin m:=1; break; end else begin z:=z div 10; end; end; if m = 1 then writeln('3. Верно')else writeln('3. Неверно'); if a mod 10=7 then writeln('4. Верно')else writeln('4. Неверно'); end.
a:array [1..10] of integer;
b,i,k:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if a[i]>k then b:=b+1;
writeln(b);
end.