Запишите на языке Паскаль строку программы: 1. Пока число A больше или равно B делай присвоить N плюс 1 ;
2. Пока число P не делится на 3 и 9, делай ;
3. Пока двузначное число A начинается с 9, делай ;
4. Если число A оканчивается на 0, то вывести A ;
5. Если число A оканчивается на 4 или на 6, то вывести A ;

1 Глобальная компьютерная сеть – это:
Г совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему.

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

3 Телеконференция – это:
в) система обмена информацией между абонентами компьютерной сети;

4 Компьютер, подключенный к Интернету, обязательно имеет:
а) IP-адрес;

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

6 Серверы Интернет, содержащие файловые архивы, позволяют
а) скачивать необходимые файлы;

7 Россия имеет следующий домен верхнего уровня в Интернете
б) ru;

8 Транспортный протокол (TCP) обеспечивает
а) разбиение файлов на IP-пакеты в процессе передачи и сборку файлов в процессе получения; (в учебнике написано так, но это неправда, конечно. TCP и IP - разные протоколы, TCP не требует наличия каких-то "IP-пакетов")

9 HTML (Hyper Text Markup Language) является:
а) средством создания Web-страниц;

10 Задан адрес электронной почты в сети Internet [email protected] Каково имя владельца этого электронного адреса?
б) user_name; (то, что стоит до собачки @ - имя, после - домен)

11 Модем – это:
г) техническое устройство.

12 Браузеры (например, Microsoft Internet Explorer) являются:
г) средством просмотра Web-страниц.

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

1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.