Шановні 8-класники!
До наступного заняття ви маєте знати такі функції:

Визначення кількості цифр заданого числа:              Визначення суми дільників заданого числа:              
function KC(n:integer):integer;                                        function SD(n:integer):integer;
 Var k:integer;                                                                 Var S,d :integer;
Begin                                                                             Begin
 k:=0;                                                                             S:=1;
 While n >0 do                                                               For  d:=2 to n div 2 do
    begin                                                                            if n mod d=0 then S:=S+d;
      n:=n div 10;                                                              SD:=s;
      k:=k+1;                                                                    End;
    end;
 KC:=k;  
end;

Визначення суми цифр заданого числа:                 Визначення кількості дільників заданого числа:
function SC(n:integer):integer;                                       function KD(n:integer):integer;
 Var s:integer;                                                               Var k,d :integer;
Begin                                                                           Begin
 s:=0;                                                                            k:=1;
 While n >0 do                                                              For  d:=2 to n div 2 do
    begin                                                                            if n mod d=0 then k:=k+1;
      n:=n div 10;                                                              KD:=s; 
      s:=s+n mod 10;                                                       End;
    end;
 KC:=k;  
end;

Визначення NSD  двох чисел (1 спосіб):          Визначення NSD двох чисел (2 спосіб):

function NSD1(n,m:integer):integer;                              function NSD2(n,m:integer):integer;    
 Begin                                                                           Begin
  While n <>m do                                                             While  (n <>0) and (m <>0)  do
    if n>m then n:=n-m Else m:=m-n;                                    if n>m then n:=n mod m Else m:=m mod n;
 NSD1:=n;                                                                        NSD2:=n+m;    
end;                                                                                end;

Визначення , чи є число простим

function Simple(n:integer):boolean;
 Var d:integer;
 Begin
   Simple:=true;
   For d:= 2 to n div 2 do
      if n mod d=0 then
         Begin
           Simple:=false;
           Break;
         End;
  End;
 Розв'яжіть задачі:
 1. Задане просте число. Чи є у нього число-близнюк?
 2. На інтервалі від 1 до 200 знайти всі числа-близнюки.