Задание 1.
История электронной почты, которую мы активно используем сегодня, началась в 1971 году, когда программист по имени Рэй Томлинсон создал программу, позволяющую отправлять послания на удаленный компьютер по протоколу CypNet).Полученные таким образом сообщения сохранялись в файле «Почтовый ящик».
Практически сразу Томлинсон начал совершенствовать свою программу. Так появилась система организации электронных почтовых адресов: каждый адрес состоял из имени пользователя, а также сетевого имени его компьютера, при этом имена разделялись между собой значком @. Знак «собачка» — это английский предлог at, то есть «на».
Меньше чем через год Томлинсон создал несложный пользовательский интерфейс, с которого можно было отправлять и принимать сообщения в сети. Еще через шесть месяцев Лоуренс Робертс на основе программы своего коллеги Томлинсона создал свою, имеющую множество сервисных функций.
Спустя полтора года электронная почта стала популярна в ARPANET, с ее передавалось 75% всех данных. Начиная с 1975 года, электронная почта стала использоваться также для рассылки писем с полезной информацией. При этом большой популярностью пользовались новости из мира научной фантастики. В том же году появилась программа MSG, написанная Джоном Витталом. Она включала все известные тогда функции — отправку, рассылку, сортировку и т.д.
Сегодня в сети Интернет существует огромное количество почтовых сервисов, обслуживающих миллионы пользователей по всему миру.
Задание 2.
Электронный Адрес — запись, однозначно идентифицирующая почтовый ящик, в который следует доставить сообщение электронной почты. Адрес состоит из двух частей, разделённых символом «@». Левая часть указывает имя почтового ящика.
1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
А здесь расписано более подробней твоя задача