Вычислить сумму n слагаемых: 1+1/2+⅓+.+1/n

@Профессор23 · Регистрация: 17.12.2013

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

Вычислить сумму n слагаемых: 1+1/2+⅓+...+1/n.

@ildwine · 17.12.2013, 19:39

Pascal

var
  n, i : integer;
  s : real;
begin
  repeat
    write('введи n: ');
    readln(n)
  until n > 0;
  s := 0;
  for i := 1 to n do s := s + 1 / i;
  writeln('сумма: ', s:8:4)
end.

@Профессор23 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 10
		1
	Вычислить сумму n слагаемых: 1+1/2+⅓+.+1/n 17.12.2013, 19:36. Показов 1492. Ответов 1 Метки нет (Все метки) Вычислить сумму n слагаемых: 1+1/2+⅓+...+1/n. 0

	17.12.2013, 19:39

Вычислить сумму n слагаемых: 1+1/2+⅓+.+1/n

Решение