Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/N

составить программу в Паскале

Question

Аксюша

24 ноября, 12:20

+5

Ответы (1)

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

Лукия · Answer 1

Var

i, n:integer;

s:real;

begin

readln (n);

for i:=1 to n do

s:=s+1/i;

writeln (s:4:2);

end.

Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/Nсоставить программу в Паскале