Шановні 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 знайти всі числа-близнюки.

Шановні гуртківці, програма, з якою ви маєте працювати на цьому тижні::

Program st1;
Uses CRT;
Var n:Longint;

Function Kc(n:Longint):integer;
 Var K:integer;
begin
 K:=0;
 While n>0 do
  begin
   n:= n div 10;
   K:=K+1;
  end;
  Kc:=K;
end;

Function Sc(n:Longint):integer;
 Var c,S:integer;
begin
 S:=0;
 While n>0 do
  begin
  c:=n mod 10;
   S:=S+c;
   n:= n div 10
  end;
  Sc:=S;
end;

Begin
 write('Ввeдіть число:');
 Readln(n);
 Writeln('Кількість цифр числа ',n, '=', Kc(n));
 Writeln('Сума цифр числа ',n, '=', Sc(n));
End.

Ваше завдання:
1. Набрати програму і навчитися з нею працювати, тобто вводити різні числа і перевіряти результат. 
2. Напишіть мені, які питання в вас виникли ( "Контактах"). 
3. Напишіть функцію, яка визначає кількість непарних цифр.

Шановні гуртківці, буде дуже добре, якщо до наступного понеділка ви, використовуючі процедури House i Tree, створити програми, які дають такі картинки:
1)

2)

3)

Для цього потрібно міняти параметри. Здогадайтесь, які і як?

Тема наступного заняття - підпрограми.

Ми навчимось, написавши одну процедуру, яка виконує якусь дію ( наприклад, малює будиночок або дерево), задавати їй завдання, за якими вона малюватиме різні за розміро, кольоро, навіть формою будиночки або дерева. Якщо таку процедуру викликати декілька разів( використовуючи цикл), можна намалювати вулицю або ліс.  

Добрий день, дорогі члени гуртка програмування!

З Новим 
роком!

У понеділок, 13 січня, приходьте, як завжди, на заняття. Повторіть все, чому ви навчилися на попередніх заняттях. Професія програміста - одна з самих цікавих, але вона непроста. Якщо ви хочете досягти успіху, заніматись потрібно щодня!

А ось вам цікаве завдання. Аи вже вмієте малювати в Паскалі лінії, прямокутники, круги. Спробуйте намалювати новорічну картинку!