Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 61 стр.

    Program Lab5_2;
    Var
       N, А: integer;
    Begin {1}
    A: = 1;
    N: = 2;
         While 2 * A < = 3 * N + 1 Dо
            Begin {2}
            A: = A + 2;
            N: = N + 1;
            End; {2}
    WriteLn (‘A = ‘, A =, ‘B = ‘,B =);
    End. {1}

     Пояснения к задаче 2
     Пока условие 2 * A < = 3 * N + 1 является истинным (т. е. 2 * A оказыва-
ется меньше или равно 3 * N + 1), выполняются операторы циклической час-
ти: значение А увеличивается на 2 и результат вновь присваивается перемен-
ной А; значение N увеличивается на 1 и результат снова помещается в
переменную N. Начальные значения переменных присвоены до начала опера-
тора цикла (N: = 1; A: = 1).
     Переменные А и N, а также логическое выражение 2 * A < = 3 * N + 1 в про-
цессе выполнения программы принимают значения, которые мы видим в табл. 11.

                                                                    Таблица 11

 Идентификаторы                           Проходы цикла
   и выражение        Первый         Второй          Третий      Четвертый
        A                1              3               5             7
        N                1              2               3             4
 2*A<=3*N+1            2<=4           6<=7          10 < = 10     14 < = 13
  Условие True          True           True           True          False
     или False        Истинно        Истинно        Истинно        Ложно

    Всего цикл проработает четыре раза. При А = 7 и N = 4 логическое
выражение 2 * A < = 3 * N + 1 становится ложным (False) и управление
передается за пределы цикла (за End {2}).

    3. Оператор цикла REPEAT ... UNTIL
    Этот оператор организует так называемый цикл «ДО», или цикл с посту-
словием, так как проверка логического < Условия > завершения цикла осу-
ществляется после каждого выполнения тела цикла (количество повторений
цикла неизвестно). Вид цикла:
    REPEAT                        (Повторять)
    < тело цикла >
    UNTIL                         (До тех пор)
    < условие >;
                                    61