1. Даны числа от 1 до N. Найти S: 1/2+1/3+ ...+1/N

Question

Информатика

Ая

21 июля, 03:35

1. Даны числа от 1 до N. Найти S: 1/2+1/3+ ...+1/N

+4

Ответы (1)

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

Александрушка · Answer 1

var

i, n:integer;

s:real;

begin

repeat

write ('N = ') ; readln (n) ;

until (n>0) ;

s:=0;

for i:=1 to n do s:=s+1/i;

writeln ('S = ', s:0:4) ;

readln;

end.