Программа и пример её выполнения - в прилагаемом файле.
Общее
Можно посылать текст
Можно посылать вложение типа фотографии, если хватает места/веса
Указывается адрес получателя и адрес отправителя
Может быть не доставлено из за неверного адреса или из за технических сбоев.
Можно перенаправить письмо
Дата прохождения через почтовую службу может служить подтверждением времени в различных спорах и разбирательствах
Возможно использовать шифрование
Плюсы бумажной почты
Письмо и вложения реальны и не требуют спец средств для прочтения
Очень разнообразные способы доставки - голубиная почта, курьерская почта и тд
Количество спама обычно меньше чем в электронной почте
Можно послать письмо без указания обратного адреса
Плюсы электронной почты
Скорость доставки
Бесплатно
Значительно легче шифровать/разшифровать, чем бумажную
Возможность получить подтверждение о получении, прочтении
Возможность настройки автоматического ответа (например если в отпуске)
Возможность отослать одно письмо множеству получателей
Копия отправленного письма остается у отправителя
Получить почту можно из любой точки интернета, а не в определенном месте (почтовый ящик)
Можно иметь множество электронных почтовых ящиков
Думаю этого хватит
Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
предположим, что в начальном тексте было Х страниц, тогда:
Х*32*64*2 - Байт = 4*Х Кбайт весил текст
4Х=2 Мбайт = 2048Кбайт(по условию)
Х=512 Страниц
Значит в отредактированном - 512-2 = 510 Страницы
510*32*64*2=2088960 Байт = 2040 Кбайт
