Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу в паскале для p=1*1/2*1/3...1/n и s= sqrt(1)+sqrt (1+2)+sqrt(1+3)...sqrt (1+n)

Ответ оставил Гость

Var n,i: integer;
p,s:real;
begin
  readln(n);
  p:=1;
  s:=0;
  for i:=1 to n do begin
     p:=p*(1/i);
     if i=1 then s:=1 else s:=s+sqrt(1+i);
  end;
  writeln(Произведение членов 1 ряда ,p);
  writeln(Сумма членов 2 ряда ,s);
end.