3. Допиши недостающие слова. 1)наука которая занимается изучением, процесса, создаваяоптимальные условиядля сохранения здоровья и работо человека.СМ.2) При обустраивании рабочего стола, рекомендуемая высота стола3) Стул должен быть с4) Монитор должен располагатьсяи на расстоянии5) Одним из самых важных правил использования компьютера является6) КаждыеМин необходимо делать перерыв, а при интенсивной работеMHH.7) Во время перерыва желательно проводить времячтобы​

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

PascalABC.Net
const
  m=8;
  n=11;
var
  a,b,c:array[1..m,1..n] of integer;
  i,j:integer;
begin
  Randomize;
  Writeln('Исходный массив A');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
    end;
    Writeln
  end;
  Writeln('Исходный массив B');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      b[i,j]:=Random(41)-20;
      Write(b[i,j]:4)
    end;
    Writeln
  end;
  Writeln('Результирующий массив С');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      c[i,j]:=a[i,j]+b[m-i+1,n-j+1];
      Write(c[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Исходный массив A
 -23 -14  -9   0 -13 -13  14  18   9  16  15
  -3  21  -4  24 -23  -9  19   9 -16 -14  23
  17 -25 -19 -25   8  -7  10 -23  -6 -23 -20
 -20  -3   9  12   6 -17   3 -24   5 -25 -11
  18 -21  -4 -20 -22  19   5 -15 -23  14  -2
 -20  -5 -10  -7 -14   4  -4 -18   7  -3  13
  -8  15  24 -10 -10  11  11 -20 -18   6  23
   2 -17 -23   5   2 -11  17  -3 -16  25  -8
Исходный массив B
   6  -6 -10  -3 -10  18  19   4  -3  -5  14
 -17  10   5 -15  11   2  16   0  18   5  14
 -14  15 -14  -7   6 -18 -15  -7 -13 -10  11
 -20 -14   5 -19  16  -1  11 -15   2 -13   3
   8 -18  -8  19  -4   1  -9   2   7 -18   9
  12 -12  -4  -9  17  -8  17  -1 -16 -13   4
  -7  10  -1   0   9   7  -3   9  12 -18   6
   3 -14 -17 -19   8   6   5 -18   6   3   8
Результирующий массив С
 -15 -11  -3 -18  -8  -7  22  -1  -8   2  18
   3   3   8  33 -26  -2  28   9 -17  -4  16
  21 -38 -35 -26  25 -15  27 -32 -10 -35  -8
 -11 -21  16  14  -3 -16  -1  -5  -3 -43  -3
  21 -34  -2 -35 -11  18  21 -34 -18   0 -22
  -9 -15 -23 -14 -29 -14   2 -25  -7  12  -1
   6  20  42 -10   6  13  22 -35 -13  16   6
  16 -22 -26   9  21   7   7  -6 -26  19  -2