Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6… количество суммируемых членов ряда задается во время работы программы. турбо паскаль

Шуранька Шуранька    3   21.09.2019 18:40    0

Ответы
Ангелиночка02 Ангелиночка02  27.08.2020 01:25
Var n,i:integer;
      sum:real;
begin
  Write('n=');readln(n);
  sum:=1;
  for i:=2 to n do
    sum:=sum+1/i;
  Writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика