<!-- Master-Test Quiz BEGIN -->
<ins style="height: 616px; width: 600px; border: medium none ; margin: 0pt; padding: 0pt; display: inline-table; position: relative; visibility: visible; text-decoration: none; color:#222222;font-family:tahoma,arial,helvetica,sans-serif;font-size:11px;font-size-adjust:none;font-stretch:normal;font-style:normal;font-variant:normal;font-weight:normal;">
<script type="text/javascript"><!--
try {
window.MasterTest = window.MasterTest || {}; MasterTest.quizId = '300859'; MasterTest.height = 616; MasterTest.width = '600';
} catch (e){document.write('Error: Can not initialise test widget')}
//-->
</script>
<script type="text/javascript" src="https://master-test.net/ru/js/widget.js"></script>
<div style="height: 14px; text-align: right; width: 598px; background-color: #ddeef9; border: 1px solid #99BBE8; left: 0pt; position: relative; top:-1px;">&nbsp;&nbsp;&nbsp;&nbsp;<a href="https://master-test.net">Сделано в Мастер-тест</a>&nbsp;&nbsp;&nbsp;&nbsp;</div></ins>
<!-- Master-Test Quiz END -->

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)

Дистрибутив PascalABC скачать       Презентация по Паскалю         Машина Поста   FreePascal for Mac - пробуйте

Учебник 10 класс Семакин pdf на google-диске