TURBO PASCAL:Учебное пособие. Терёхин В.В. - 54 стр.

влиять на значение условия прекращения цикла, иначе он будет
выполнятся бесконечно.
       Примеры:
       1)
While 2=2 do Writeln('2=2') ;
       2)
while (a<100) or (a>100) or (a=100) do Writeln(a);

        Задача. Используя алгоритм Евклида, найти НОД (наи-
больший общий делитель) двух чисел.
        Алгоритм Евклида:
   1) пока переменные неравны, заменить большее значение
       на разность большего и меньшего;
   2) выбрать любое значение в качестве результата.
program p15;
var
   а, b, х, у: integer;
begin
   Writeln('Введите а и b');
   Read (a, b);
   х:= а; {запоминаем начальные значения а и b}
   у:=b;
   While a <> b do
      if a > b then a:= a - b
      else b:= b – a;
   Writeln (‘ HOД( ‘, x, ', ' , y, ') = ' , a);
end.
                                              1 1
        Задача. Найти сумму ряда 1 − 2 + 2 − ... с заданной
                                             2  3
точностью – е. Первый отброшенный элемент ряда не должен
превосходить е. Вывести на экран количество слагаемых,
суммированных до достижения необходимой точности.
program р16;
var
   S, е, х: real;
                                                          54