Вычислить среднее геометрическое последовательности чисел

@Lectar · Регистрация: 16.10.2014

Author24 — интернет-сервис помощи студентам

Всем привет. Не знаю как решить задачу на паскале. Без массивов. Заранее спасибо.

Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее геометрическое этих чисел.

@Puporev · 16.10.2014, 18:18

Pascal

var a,k:integer;
    s:real;
begin
writeln('Введите целые положительные числа, окончание ввода 0');
s:=1;
k:=0;
repeat
readln(a);
if a>0 then
 begin
  inc(k);
  s:=s*a;
 end;
until a=0;
s:=exp(ln(s)/k);
write('Среднее геометрическое = ',s:0:2)
end.

@Lectar 1 / 1 / 2 Регистрация: 16.10.2014 Сообщений: 38
		1
	Вычислить среднее геометрическое последовательности чисел 16.10.2014, 17:30. Показов 1718. Ответов 1 Метки нет (Все метки) Всем привет. Не знаю как решить задачу на паскале. Без массивов. Заранее спасибо. Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее геометрическое этих чисел. 0

	16.10.2014, 18:18

Опции темы

Вычислить среднее геометрическое последовательности чисел

Решение