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

Паскаль. вычислить сумму трех членов прогрессии 1, 1+1/2, 1+1/3, 1+1/4... которые меньше заданного числа В где 1<В<2

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

Прогрессия неправильная, т.к. первый элемент должен быть 1+1/1 = 2

var b,sum:real; count, n:integer;
begin
readln(b);
count:=0;
n:=1;
while count<>3 do begin
  if (1+1/n)       sum:=sum+(1+1/n);
       count:=count+1;
  end;
  n:=n+1;
end;
writeln(suma: ,sum);
end.

Оцени ответ