Задачи на 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;... найти первое! число большее заданного А.

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

[volvo]

klem4
Вопрос: в решении первой программы зачем массив? Написано только про последовательность, но хранить-то ее не надо...
Тогда делаем проще (Задача №1):

Код

uses crt;
var
 max, x: integer;
Begin
 clrscr;
 max := 0;
 repeat
   readln(x);
   if x <> 0 then
     if x > max then max := x
 until x = 0;
 writeln('max = ',max);
 readln;
end.

Сообщение отредактировано: volvo - 21.01.2005 14:26