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

Question

Информатика

Фадей

3 марта, 04:22

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

+3

Ответы (1)

Знаете ответ на вопрос?

Епифаний · Answer 1

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

var b, sum:real; count, n:integer;

begin

readln (b) ;

count:=0;

n:=1;

while count3 do begin

if (1+1/n)
sum:=sum + (1+1/n) ;

count:=count+1;

end;

n:=n+1;

end;

writeln ('suma: ', sum) ;

end.