Пример. Задание: Вычислить сумму натурального ряда чисел от 1 до N, т.е

Задание: Вычислить сумму натурального ряда чисел от 1 до N, т.е. найти сумму .

Решения задания с использованием циклов repeat, while и for приведены ниже. Схемы алгоритмов представлены на рисунках Ж.6-Ж.8.

Программа с использованием оператора цикла с параметром for.	Программа с использованием оператора цикла с постусловием repeat.	Программа с использованием оператора цикла с предусловием while.
ProgramNatur3; Vara, Summa: integer; Begin write('N='); readln(N); {Цикл с параметром} Summa:=0; for а:= 1 to N do Summa: =Summa+a; Writeln(' Результат = ', Summa); end.	ProgramNatur2; Vara, Summa: integer; Begin write('N='); readln(N); {Цикл с постусловием} а:=1; Summa:=0; repeat Summa:=Summa+ a; а:=а+1; until a>N; Writeln(' Результат = ', Summa); end.	ProgramNatur1; Vara, Summa: integer; Begin write('N='); readln(N); {Цикл с предусловием} a:=l; Summa:=0; while a<=N do begin Summa:=Summa+a; a:= a + 1; end; Writeln(' Результат = ', Summa); end.
Рисунок Ж.6 -Схема алгоритма программы	Рисунок Ж.7 -Схема алгоритма программы	Рисунок Ж.8 -Схема алгоритма программы