Цикл While

#1 Определите количество четных элементов в последовательности, завершающейся
числом 0.

#2 Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.

#3 Напишите программу, которая получает два целых числа и находит их произведение, не используя операцию умножения.

#4 Ввести натуральное число и найти сумму его цифр. Количество цифр в числе заранее не известно.

#5 Напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального числа. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).

#6 Напишите программу, которая в последовательности целых чисел определяет самую длинную серию равных чисел. Выедите ее длину. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Например, дана последовательность 1,5,3,5,5,5,2,2,4,3,3,3,3
Есть серии 5,5,5 2,2 3,3,3,3
Ответ 4

#7 Составить программу разложения натурального числа n на простые множители.
Пример: 360 = 2 2 2 3 3 5.
Алгоритм решения задачи: В качестве первого делителя взять 2, присвоить это значение некоторой переменной i; 
начать цикл «пока i <= n»; 
если данное число n делится на i, тогда выдать на экран значение i и разделив данное число на i, присвоить новое значение той же переменной n (n := n div i); 
далее цикл продолжить, но значение i не увеличивать на 1, а проверить деление нового значения n на прежнее значение i;
если n не делится на i, тогда i увеличить на 1 (i := i + 1) и продолжить цикл, т.е. выполнить проверку условия цикла (i <= n), а затем снова проверить деление n на уже новое значение i.