Вопрос пользователя:
Составить на Паскале программу для вычисления суммы ряда (см. рисунок).
Число N вводится с клавиатуры.
Протестировать программу для N=1, N=2, N=4, N=6. Правильность ответов проверить с помощью калькулятора.
Илюха отвечает:
var s,a: real;
n,i:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
a:=1/i;
s:=s+a;
end;
writeln(s:0:5);
end.