Составить на Паскале программу для вычисления суммы ряда (см. рисунок).
Число N вводится с клавиатуры.
Протестировать программу для N=1, N=2, N=4, N=6. Правильность ответов проверить с помощью калькулятора.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.