Написать программу через repeat. дано натуральное число n> 10. найти первую цифру данного числа

  var n: integer; begin   readln(n);   repeat    n: = n div 10;   until n< 10;     writeln(n);   end.

Приступая к разработке каждой программы пс, следует иметь в виду, что она, как правило, является большой системой, поэтому мы должны принять меры для ее . для этого такую программу разрабатывают по частям, которые называются программными модулями [7.1, 7.2]. а сам такой метод разработки программ называют  модульным  программированием [7.3].  программный модуль  -  это любой фрагмент описания процесса, оформляемый как самостоятельный программный продукт, пригодный для использования в описаниях процесса. это означает, что каждый программный модуль программируется, компилируется и отлаживается отдельно от других модулей программы, и тем самым, разделен с другими модулями программы. более того, каждый разработанный программный модуль может включаться в состав разных программ, если выполнены условия его использования, декларированные в документации по этому модулю. таким образом, программный модуль может рассматриваться и как средство борьбы со сложностью программ, и как средство борьбы с дублированием в программировании (т.е. как средство накопления и многократного использования программистских знаний). модульное программирование является воплощением в процессе разработки программ обоих общих методов борьбы со сложностью (см. лекцию 3, п. 3.5): и обеспечение независимости компонент системы, и использование иерархических структур. для воплощения первого метода формулируются определенные требования, которым должен удовлетворять программный модуль, т.е. выявляются основные характеристики “хорошего” программного модуля. для воплощения второго метода используют древовидные модульные структуры программ (включая деревья со сросшимися ветвями).

Вычисление производится "в столбик".             1 1 0 0 1 0 1 0 1 х                          1 0 0 1             1 1 0 0 1 0 1 0 1 +1 1 0 0 1 0 1 0 1   1 1 1 0 0 0 1 1 1 1 0 1 чтобы не загромождать решение, строки из нулей, полученные умножением на 0, не пишутся. поэтому в суммировании участвуют лишь значения, представляющие собой первый сомножитель, сдвинутый до уровня единиц из разрядов второго сомножителя. в нашем случае это самая правая позиция и позиция, со свигом влево на три разряда.