Вывести на экран произведение десяти первых четных положительных чисел

Посчитать сумму двузначных положительных чисел, кратных 3.

Вывести на экран первые десять положительных целых чисел

Continue

Break

Операторы завершения цикла

Для всех операторов цикла выход из цикла осуществляется как вследствие естественного окончания оператора цикла, так и с помощью операторов перехода и выхода.

Определены стандартные процедуры:

Процедура Break выполняет безусловный выход из цикла.

Процедура Continue обеспечивает переход к началу новой итерации цикла.

ОПЕРАТОР ЦИКЛА С ПАРАМЕТРОМ FOR... DO (для…)

Оператор цикла с параметром используется именно в таких случаях, когда необходимо организовать цикл с заданным числом повторений

for <параметр_цикла>:=<начальное_знач> to <конечное_знач> do <оператор>;

for <параметр_цикла>:=<конечное_знач> downto <начальное_зна.> do <оператор>;

Оператор, представляющий собой тело цикла, может быть простым или составным.

Параметр цикла, а также диапазон его изменения могут быть только целочисленного или перечислимого типа.

Параметр описывается совместно с другими переменными.

Шаг цикла for всегда постоянный и равен '1' или '-1'.

1. Выполнение цикла начинается с присвоения параметру стартового значения.

2. Затем следует проверка, превосходит ли параметр конечное значение.

3. Если результат проверки утвердительный, то цикл считается завершенным, и управление передается следующему за телом цикла оператору.

4. В противном случае выполняется тело цикла, и параметр меняет свое значение на следующее согласно заголовку цикла.

5. Далее снова производится проверка значения параметра цикла, и алгоритм повторяется.

var i: integer; //вводится счетчик

begin

for i:=1 to 10 do //пока значение счетчика от 1 до 10 выполнять следующее

writeln(i); //вывод значения счетчика

end.

var i,sum: integer;

begin

sum:=0; //обнуление значения переменной

for i:=10 to 99 do //перебор двузначных положительных чисел

if i mod 3=0 then //кратность 3

sum:=sum+i; //сумма предыдущего значения переменной и числа, соответствующего условию

writeln(sum);

end.

var i,pr: integer;

begin

pr:=1; //при нахождении произведения начальное значение переменной не 0, а 1

for i:=1 to 10 do

if i mod 2=0 then //определение четности

pr:=pr*i;

writeln(pr);

end.

Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (в том числе A и B), a также количество N этих чисел.

var i,pr: integer;

readln(a,b);

k:=0; //обнуляем значение переменной, означающей количество

for i:=A to B do //перебор чисел из заданного диапазона

begin

writeln(i); //вывод в чисел порядке возрастания

k:=k+1; //подсчет количества чисел

end;

writeln(k); //вывод количества происходит вне цикла т.к. выводится один раз

readln;

end.