Операторы повторений

В ТР имеются 3 различных оператора, с помощью которых можно запрограммировать повторяющиеся фрагменты программ
Оператор со счетчиком
Оператор с предусловием
Оператор с постусловием

Оператор со счетчиком
Структура:
For <пар_цикла>:=<нач_знач> to <кон_знач> do <оператор>

Работа оператора FOR
Вначале вычисляется начальное значение и осуществляется присвоение вычисленного значения параметру цикла.
После этого циклически повторяется:

Проверка условия <пар_цикла> <= <конеч_знач>, если условие не выполнено, оператор FOR завершает свою работу
Выполняется оператор
Производится наращивание переменной <пар_цикла> на единицу .

ПРИМЕР: рассчитать сумму первых N целых чисел
Program sum;
Var N,I,S:integer;
Begin
Writeln(‘Введите N’);
Read(N);
S:=0;
For I:=1 to N do
S:=S+I;
Writeln(S);
End.

Другая форма оператора FOR
For <пар_цикла>:=<нач_знач> downto <кон_знач> do <оператор>
Шаг наращивания параметра цикла равен (-1).

Тот же пример с использованием другой формы оператора
Program sum;
Var N,I,S:integer;
Begin
Writeln(‘Введите N’);
Read(N);
S:=0;
For I:=N downto 1 do
S:=S+I;
Writeln(S);
End.

Самостоятельные задания
Вычислите an как произведение n раз числа а.
Вывести на экран сообщение – какие из n введенных чисел – четные.
Вычислите сумму n целых чисел, кратных 3.