решить тест за ранее Электронное письмо – это… 1) письмо, переданное по факсу. 2) текстовый файл, содержащий электронный адрес получателя и текст письма. 3) музыкальная открытка. 2. Прочитать электронное письмо может… 1) любой пользователь Интернет. 2) только хозяин почтового ящика. 3) хозяин почтового ящика и его друзья. 4) хозяин почтового ящика и все его коллеги. 3. Для того чтобы отправлять и принимать электронные письма нужно… 1) нарисовать почтовый ящик в компьютере. 2) иметь сотовый телефон. 3) зарегистрировать почтовый ящик на одном из Почтовых серверов. 4) знать адрес одного из почтовых ящиков друзей. 4. Чтобы почту в своем электронном почтовом ящике нужно знать: 1) логин и пароль. 2) электронный адрес. 3) имя и паспортные данные. 4) сетевой номер своего компьютера. 5. Чтобы отправить электронное письмо другу нужно знать: 1) имя и паспортные данные друга. 2) индекс и почтовый адрес. 3) электронный адрес почтового ящика друга. 4) логин и пароль. 6. Социальные сети – это… 1) корпоративные сети. 2) сети социальных услуг. 3) сети, объединяющие пользователей по общему интересу. 7. После отправки сообщения его копия помещается в папку… 1) Входящие. 2) Исходящие. 3) Отправленные. 4) Корзина. 8. Рисунки из Интернета загружаются… 1) быстрее текста. 2) медленнее текста. 3) медленнее музыки. 4) медленнее фильмов. 9. Приходящая корреспонденция помещается в папку… 1) Отправленные. 2) Входящие. 3) Исходящие. 4) Удалённые. 10. Заполните следующую таблицу 1)Что представляет собой электронная почта? ответ: 2)Как записывается адрес электронной почты? ответ: 3)В чем особенность электронной почты? ответ: 4)Что представляет собой почтовый ящик? ответ: 5)Что такое Спам? ответ: 6)В чем преимущества электронной почты? ответ: 7)Что такое протокол электронной почты?

Объяснение:

1-2

2-2

3-3

4-1

5-3

6-3

7-3

8-2

9-2

10-1)текстовый файл, содержащий электронный адрес получателя и текст письма;

2)имя пользователя@имя сервера;

3)особенность электронной почты состоит в том, что для работы с ней используются два прикладных протокола: один – для отправки исходящих сообщений, а другой – для получения входящей корреспонденции;

4)ящик, предназначенный для сбора или доставки электронных писем, почтовых карточек и др. ;

5)это массовая рассылка сообщений пользователям, не дававшим согласия на их получение;

6)скорость, простота, дешевизна, возможность массовой пересылки;

7)это набор правил, которые правильно передавать информацию на почтовый сервер или с него.

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))