Вычислить количество слагаемых у выражения 1/2+1/5+1/8+1/11 ... складывать, пока слагаемое не станет меньше n

Question

Юлия

6 января, 06:13

+4

Ответы (1)

Знаешь ответ?

Сарра · Answer 1

Var s, d, n:real; i:integer; beginn:=0.01; i:=2; s:=1; while s > n do begins: = 1/i; d: = d + s; writeln (i:3, S:6:3, d:6:3); i: = i + 3; end; end.