Архив

Program Amstrong;

Var k,z,St: integer;

Function s (f:integer):integer; 'функция суммирует цифры числа

Var b:integer;

Begin

  b:=0;

  While f>0 do

    Begin

    b:=b+ f mod 10;

    f:=f div 10;

    end;

    s:=b;

end;

Function x (n:integer):integer;  'функция подсчитывает количество цифр

Var q: integer;

Begin

  q:=0;

  While n>0 do

    Begin

    n:=n div 10;

    q:=q+1;

    end;

    x:=q;

end;

Begin
              'вызов функции <имя функции>(<имя обрабатываемой переменной>)
End.

ДЗ-11 Код программы оформить в тетради. Тетради на проверку!
10-А. Задача:  Дано натуральное число n. Проверьте, будут ли все цифры числа различными.
10-Б. Задачи:  В1. Дано натуральное число n. Найти сумму первой и последней цифры числа.
                           В2. Дано натуральное число n. Переставьте местами первую и последнюю цифры числа.
               В3. Дано натуральное число n. Проверьте, есть ли в записи числа три одинаковых цифры (n<9999).

ДЗ-10 Задача: Найти наименьшую и наибольшую цифру в записи данного натурального числа. Оформить код программы в рабочей тетради.

ДЗ-9 Учебник п.10 Задачи № 3, 4 стр.74 решить с помощью машины Поста (можно скачать с сайта). Скриншоты решения вклеить в рабочую тетрадь (текст программы). Скриншот классной задачи 10-Б

ДЗ-8 Готовимся к самостоятельной работе по теме Алгоритмы (задания reshuege №11, №14, reshuoge №6)