');
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)
Электронной почтой пользуются миллионы людей – это удобно, быстро и доступно.
Чтобы отправить электронную почту Вам необходим комп Нажимаєм кнопку «Написать» и щелкаем по ней.
Перед Вами появится бланк письма и поля «Кому» и «Тема».
В поле «Кому» вводим адрес электронной почты получателя, Если Вам нужно отправить письмо нескольким получателям, введите через запятую адреса получателей. Чтобы не заполнять адреса вручную, можно использовать функцию «Адресная книга», которая находится в строке «Кому». Нажимаем на подчеркнутое слово «Кому», и Вам открывается список адресатов (если Вы предварительно сохраняли их в записной книжке вашего почтового ящика). Ставим галочку с нужным именем или именами и нажимаем «Добавить выбранные».
В самом большом поле пишем текст письма. Можно изменить цвет текста, размер шрифта, вставить ссылки или «смайлики». Для этого выделяем текст и нажимаем на одну из кнопок расположенных над полем ввода сообщения.
Заполнив все поля, щелкаем на кнопку «Отправить».
По электронной почте можно отправлять не только письма, но текстовые документы, звуковые и видео файлы, картинки и фотографии.пьютер, интернет, электронный почтовый ящик. Для регистрации почтового ящика нужно зайти на любой почтовый сервис и заполнить предложенную форму.
Объяснение: