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

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.