это алгоритмы, предусматривающие многократное повторение одного и того же действия над ноывми данными. Цикл называется арифметическим, если заранее известно количество повторений. =,, шаг Тело цикла

1. Вывести на экран N раз свою фамилию и имя. начало N i= 1, N, 1 Петров Петр конец Program familiy; const N=10; Var i: byte; begin For i:=1 to N do Writeln(Петров Петр); Readln; End.

2. Вывести на экран последовательные натуральные числа, не превосходящие N. начало N i= 1, N, 1 i конец Program N2; const N=10; Var i: byte; begin For i:=1 to N do Writeln( i ); Readln; End.

3. Вывести на экран последовательные натуральные числа, начиная с N до 1. начало N i = N, 1, -1 i конец Program N3; const N=10; Var i: byte; begin For i:=N downto 1 do Writeln( i ); Readln; End.

4. Найти сумму последовательных натуральных чисел, не превосходящих N. начало N i = 1, N, 1 S конец Program N4; const N=10; Var i: byte; S:word; begin S:=0; For i:=1 to N do S:=S+i; Writeln( S=, S ); Readln; End. S=S+i S=0

5. Найти произведение последовательных натуральных чисел, не превосходящих N. начало N i = 1, N, 1 P конец Program N5; const N=10; Var i: byte; P:word; begin P:=1; For i:=1 to N do P:=P*i; Writeln( P=, P ); Readln; End. P=P*i P=1

6. Найти сумму отрицательных чисел, количество чисел N (числа вводятся с клавиатуры) начало N i = 1, N, 1 S конец Program N6; const N=10; Var i: byte; ch, S:integer; begin S:=0; For i:=1 to N do begin writeln(введи Ch); readln(ch); If ch

7. Найти сумму четных чисел (начиная с 2), не превосходящих N. начало N Ch=2 Ch