1: Циклы с постусловием
2: Синтаксис оператора REPEAT UNTIL Тело цикла – произвольная последовательность операторов Условие – выражение логического типа
3: Работа оператора Операторы тела цикла выполняются хотя бы один раз, после чего выполняется условие, если оно ложно, операторы тела цикла выполняются вновь, иначе оператор REPEAT прекращает свою работу.
4: Пример: Сосчитать сумму чисел от 1 до N. Program sum; Var i,n,s:integer; Begin Writeln(Введите n); Read(n); S:0; i:1; Repeat s:si; i:i1 Until in; Writeln(Сумма чисел,S); End.
5: ПРИМЕР Нахождение наибольшего общего делителя двух натуральных чисел.
6: Для решения этой задачи используется алгоритм Евклида Большее из чисел уменьшается на величину меньшего до тех пор, пока оба числа не станут равны. Например:
7: Program NOD; Program NOD; Var a,b:integer; Begin Writeln(Введите a, b); Read(a,b); Repeat If ab then a:a-b; If ba then b:b-a Until ab; Writeln(НОД,a); End.
8: Самостоятельные задания Вычислить сумму квадратов вводимых чисел. Числа вводятся, пока не будет нажат «0». Вычислить сумму n слагаемых вида (i1)/(i2).