/ help •Is it possible to access databases using the Web?
•What is the significance of field types in a database?
•Why do errors creep into databases?
•How do database designers use normalization to reduce
data redundancy?
•What roles do sorting and indexing play in making databases more
versatile?
•Is it difficult to create reports from a database?

• Можно ли получить доступ к базам данных с Интернета?
• Каково значение типов полей в базе данных?
• Почему ошибки проникают в базы данных?
• Как разработчики баз данных используют нормализацию для уменьшения
избыточности данных?
• Какую роль играют сортировка и индексирование в повышении
универсальности баз данных?
• Сложно ли создавать отчеты из базы данных?

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

Const N = 10;Const M = 10;Var  A:Array [1..N, 1..M] Of Integer;  i, j, imax, jmax, imin, jmin, temp:Integer; Begin  randomize;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      A[i, j] := random(1000);    End;  End;  imin := 1;  imax := 1;  jmin := 1;  jmax := 1;  For i := 1 to N do  Begin    For j := 1 to M do    Begin      If A[i, j] > A[imax, jmax] then      Begin        imax := i;        jmax := j;      End;      If A[i, j] < A[imin, jmin] then      Begin        imin := i;        jmin := j;      End;    End;  End;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);  temp := A[imin, jmin];  A[imin, jmin] := A[imax, jmax];  A[imax, jmax] := temp;  writeln('first elem: ', A[imax, jmax], ', second elem: ', A[imin, jmin]);End.