');
sound(zvuk); delay(del); nosound;
readln; close(g);
halt;
End;

Procedure DAt;
Begin
writeln;
textcolor(14);
writeln(' Этап пройден успешно.');
textcolor(15);

readln; clrscr;
End;

procedure initial;
begin
assign(f,'input.txt'); reset(f);
assign(g,'output.txt'); rewrite(g);
{1-initial}
clrscr; textcolor(15);
writeln(' 1 этап -Инициализация...');
c:=['0'..'9'];
bukva:=['a'..'z'];
BUKVA2:=['A'..'Z'];
writeln; writeln('> Из файла считана строка:'); writeln;
while not(eof(f)) do
begin
read(f,s);
write(s);
dlina:=length(s);
end; if dlina=0 then nett;
writeln;
writeln;
textcolor(14);
writeln(' Этап пройден успешно.');
textcolor(15);

readln; clrscr;
end;

procedure trans;
Begin

writeln(' 2 этап- Транслитерация... ');
writeln('> Проверка на присутствие недопустимых символов');
writeln('(Допустимо - a..z A..Z = . ; + .. ::= )'); writeln;
while i<>dlina do begin
inc(i);
b[i]:=s[i];
end;
writeln('> Анализ строки: ');
for n:=1 to i do write(b[n],' ');

for i:=1 to dlina do
Begin
if (b[i]<>'+')
and(b[i]<>'.')
and (b[i]<>'=')
and (b[i]<>';')
and (b[i]<>' ')
and (b[i]<>'-')
and (b[i]<>'[')
and (b[i]<>']')
and (not(b[i] in c))
and (not(b[i] in bukva))
and (not(b[i] in BUKVA2)) then NETt;
End; {for}

{создаем массивы из букв,знаков, цифр}
for i:= 1 to dlina do begin
if (b[i] in bukva) or (b[i] in BUKVA2) then mb[i]:=b[i];
if b[i] in c then mc[i]:=b[i];
if
(b[i]='=') or
(b[i]='+') or
(b[i]='-') or
(b[i]='.') or
(b[i]='[') or
(b[i]=']') or
(b[i]=';') then mz[i]:=b[i];
end;
writeln;
writeln('');
writeln('буквы:');
for i:= 1 to dlina do sb:=sb+mb[i]; {получаем строку из переменных и ключевых слов}
write(sb); writeln;

writeln('');
writeln('цифры:');
for i:= 1 to dlina do write(mc[i]); writeln;

writeln('');
writeln('знаки:');
for i:= 1 to dlina do write(mz[i]); writeln;
writeln('');

DAt;
end;

var a: array [1..5] of integer;

i, j , count, sum_count: integer;

repeated : boolean;

begin

   for i := 1 to 5 do

   begin

       write('Введите ', i, '-e число: ');

       readln(a[i]);

   end;

   sum_count := 0;

   for i := 1 to 5 do

   begin

       repeated := false;

       for j := 1 to i - 1 do

       begin

           repeated := (a[i] = a[j]);

           if repeated then break;

       end;

       if repeated then continue;

       count := 1;

       for j:= i+1 to 5 do

           if (a[i]=a[j]) then

               inc(count);

       if count > 1 then

           sum_count += count;

   end;

   writeln(sum_count);

end.

ответ:2)

Электронной почтой пользуются миллионы людей – это удобно, быстро и доступно.

Чтобы отправить электронную почту Вам необходим комп Нажимаєм кнопку «Написать» и щелкаем по ней.

Перед Вами появится бланк письма и поля «Кому» и «Тема».

В поле «Кому» вводим адрес электронной почты получателя, Если Вам нужно отправить письмо нескольким получателям, введите через запятую адреса получателей. Чтобы не заполнять адреса вручную, можно использовать функцию «Адресная книга», которая находится в строке «Кому». Нажимаем на подчеркнутое слово «Кому», и Вам открывается список адресатов (если Вы предварительно сохраняли их в записной книжке вашего почтового ящика). Ставим галочку с нужным именем или именами и нажимаем «Добавить выбранные».

В самом большом поле пишем текст письма. Можно изменить цвет текста, размер шрифта, вставить ссылки или «смайлики». Для этого выделяем текст и нажимаем на одну из кнопок расположенных над полем ввода сообщения.

Заполнив все поля, щелкаем на кнопку «Отправить».

По электронной почте можно отправлять не только письма, но текстовые документы, звуковые и видео файлы, картинки и фотографии.пьютер, интернет, электронный почтовый ящик. Для регистрации почтового ящика нужно зайти на любой почтовый сервис и заполнить предложенную форму.

Объяснение: