– 14 –

Оператор продолжения цикла

continue

Осуществляет безусловный переход на следующую итерацию циклов for, while или repeat

.

Пример выполнения

Дано натуральное число N. Получить все его натуральные делители: program Primer;

var N,I:integer; begin

writeln('введите N'); readln(N); writeln('делители:'); for I:=1 to N do

if N mod I = 0 then writeln(I) end.

Варианты заданий

1.Даны целые числа m, n (m<>0, n<>0). Получить все их общие делители (положительные

иотрицательные).

2.Пусть ai=(i-1)/(i+1)+sin((i-1)3/(i+1)), i=1,2,…,n. Дано натуральное n . Среди

чисел a1,…,an выбрать наименьшее положительное число. Если положительных чисел нет, выдать сообщение.

3. Пусть a1=0,01, ak=sin(k+ak-1), k=2,…,1000. Определить, какие из членов последовательности ai, i=1,2,4,8,16,… (степени 2) имеют значение, меньшее, чем 0,25. Если таковых нет, выдать сообщение.

4.Дано натуральное число n . Найти наибольшее среди чисел k*esin(k+1), k=1..n, а также сумму всех этих чисел.

5.Пусть x1=0.3, x2=-0.3, xi=i+sin(xi-2), i=3,4,… Среди чисел x1...x1000 найти бли-

жайшее по величине к числу 8 и его индекс.

6. Пусть x1 = y1 = 1, xi = xi-1+yi-1/i2, yi = yi-1+xi-1/i, i=2,3,… Даны два натураль-

ных числа m и n . Найти xm и yn.

7.Даны натуральные числа m и n. Получить (m!+n!)/(m+n)!.

8.Дано натуральное число n. Вычислить произведение первых n сомножителей:

(2/1)*(2/3)*(4/3)*(4/5)*(6/5)*(6/7)*…

9.Пусть a0=cos21, a1=-sin21, ak=2ak-1-ak-2, k=2,3... Найти сумму квадратов тех чисел из последовательности a1,…,a1000, которые не превосходят 2.

10.Пусть ak=sin2(3k+5)-cos(k2-15), k=1,2,…,1000. Определить, какие из чисел ai, i=1,2,4,8,16,… (степени 2) имеют значение, меньшее 0,25. Если таковых нет, выдать сообщение.

11.Дано натуральное число n. Получить все такие натуральные q , что n делится на q 2 и

не делится на q 3.

Контрольные вопросы

1.Можно ли внутри цикла for изменять значение переменной цикла ?

2.Какого типа может быть переменная цикла for ?

3.Каким образом можно написать цикл «по счетчику» с шагом, отличным от 1 и –1 ?

4.В чем основные отличия циклов while и repeat until ?

5.Можно ли с помощью цикла while реализовать цикл for ?

6.Можно ли с помощью цикла while реализовать цикл repeat until?

7.Можно ли с помощью цикла for реализовать цикл while ?