S=1-1/2+1/3-1/4+...+1/n - Pascal

Var i,n,s:integer;

begin

writeln (Введите n);

readln(n);

s:=0;

for i:= 1 to n do

begin

S:=s+1/i;

end;

writeln(Сумма равна - ,s);

end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.