1. Составить программу, которая проверяет умения пользователя складывать числа. Программа выводит на экран вопрос “Cik ir n+m?”, где n и m – случайные двузначные числа, и выводит после каждого примера, правильный ли ответ дал пользователь. Если ответ неправильный, программа дополнительно выводит правильный ответ. Знания пользователя необходимо проверить 10 примерами. В конце вывести количество правильных и неправильных ответов. (10 пунктов)

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
  if n<4 then Result:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
  Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
  if n<4 then res:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
  var k:=0;
  var prime:boolean;
  foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
  Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

Информационные ресурсы и сервисы компьютерных сетей
Средства обеспечения определенных информационных услуг для пользователей сети принято называть службами Интернета. Кроме понятия «служба» существует еще понятие «сервис». Часто разницу между ними довольно трудно уловить. Число различных служб и сервисов в сети непрерывно растет. Опишем лишь некоторые самые известные службы, разделив их на коммуникационные и информационные.

Еще раз обратим внимание на то, что все службы Интернета основаны на взаимодействии двух программ. Одна из этих программ - сервер, а другая программа - клиент. Они взаимодействуют по определённым правилам, заданным в протоколах

Протокол службы - технический стандарт (система правил), определяющий технические особенности взаимодействия почтовых серверов друг с другом и с почтовым клиентом.

Если протокол ТСР/IР называется базовым протоколом Интернета, то протоколы служб можно назвать прикладными протоколами (иногда их называют протоколами второго уровня).

Поясним смысл еще двух терминов, которые будут дальше использоваться. Режим on-line — это режим работы пользователя в состоянии подключения к какому-либо серверу Сети. Состояние отключенной связи называется режимом оff-line. Аналогия: общение по телефону всегда происходит в режиме on-line. При отправлении телеграммы вы заполняете бланк в режиме оff-line, затем телеграфист в режиме on-line передает телеграмму по линии связи; а затем получатель читает телеграмму в режиме оff-line.