Question

Составить алгоритм подсчета суммы s первых 1000 членов гармонии
1+1/2+1/3+1/4....+ 1/n используя цикл с предисловием
нужна только блок схема

Answer 1

PROGRAM B02;
CONST
max = 1000;
VAR
index:word;
sum:real;
BEGIN
index:=2;
sum:=1;
while (index<=max) do begin
sum:=sum+1/index;
index:=index+1;
end;

writeln('1+1/2+1/3+1/4....+ 1/',max,' = ', sum);
END.