Решить информатику: s=1/(1+2)+1/(1+2+3)+1/(1+2+3+4)++1/(1+2+)

GoldCoin GoldCoin    3   27.05.2019 17:10    0

Ответы
19Otlichnik19 19Otlichnik19  24.06.2020 18:59
Var n,i,p: integer;
     s: real;
begin
  s:=0;
  p:=0;
  readln(n);
  for i:=1 to n do
    begin
    p:=p+i;
    s:=s+1/p;
    end;
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика