Задачи на While и Repeat. Опции

[kolydos]

Привет, я полистал ваш форум и понял, что мне тут могут могут оказать качественную помощь. Если не сложно напишите пожалуйста решения следующих задач:

1. напишите программу, которая определяет максимальное число из последовательности положительных чисел. признак окончания ввода ноль.
2. Напишите программу, которая вычисляет среднее арифмитическое последовательности положительных чисел, которые вводятся с клавиатуры. Для окончания ввода использовать ноль.
3. сколько слогаемых войдет в сумму пока она не привысит заданного А?
S=1+1/2+1/3+...
4. Сколько слогаемых войдет в сумму, прежде чем она привысит А?
S=2/1+3/2+4/3+5/4...
5. Дано целое m. получить наибольшее целое к, при котором три в степени к будет строго больше m.
6. Среди чисел вида:0,25; 0,25*1,25; 0,25*1,25*2,25;... найти первое! число большее заданного А.

Просьба особо не мудрить, это для первого курса и заранее огромное спасибо