Программирование циклических алгоритмов

Опорный конспект
while (цикл-ПОКA)
repeat (цикл-ДО)
for (цикл с параметром)
Число повторений
цикла известно
В языке Паскаль имеются три вида операторов цикла:
Число повторений
цикла неизвестно

Программирование циклов с заданным условием продолжения работы
Здесь:
<условие> - логическое выражение;
пока оно истинно, выполняется тело цикла;
<оператор> - простой или составной оператор, с помощью которого записано тело цикла.
while <условие> do
begin
<оператор1>;
<оператор2>;
…
end

while ( цикл-ПОКА)
Напишите программу, которая вычисляет сумму n чисел, вводимых с клавиатуры

while ( цикл-ПОКА)
Напишите программу, которая вычисляет сумму натуральных чисел, кратных 3 и не превосходящих n. n вводится с клавиатуры.
…
i := 3; s := 0;
While i <= n do
begin
s := s + i;
i := i + 3
end;
…
3, 6, 9, 12, 15, …, n

Программирование циклов с заданным числом повторений
После каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условие выхода из цикла - превышение параметром конечного значения.
Общий вид оператора:
for <параметр>:=<начальное_значение> to <конечное_значение> do
begin
<оператор1>;
<оператор2>;
…
end

Напишите программу, которая вычисляет сумму 5-ти чисел, вводимых с клавиатуры
for (цикл с параметром)

for (цикл с параметром)
Домашнее задание
Напишите программу, которая вычисляет среднее арифметическое n чисел, вводимых с клавиатуры. Используйте цикл for.

for (цикл с параметром)
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, кратное 5.

for (цикл с параметром)
...
k := 0;
For i := 1 to n do
Begin
read(a);
if a mod 5 = 0 then k := k+1
End;
Writeln(k)
...

for (цикл с параметром)
Домашнее задание
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — сумму чисел, кратных 4.

Программирование циклов
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
...
readln(a);
while a<>0 do
begin
...if
readln(a);
end;
...
5
67
3
9
0