Algoritmo para dado o valor de N calcular o valor de H = 1/1+1/2+1/3+1/4+...1/n.

//Faça um algoritmo para dado o valor de N calcular o valor de H = 1/1+1/2+1/3+1/4+...1/n.

program serie;

uses crt;

var

n,i:integer;

h:real;

begin

writeln(' ************* SERIE ***************');

repeat

writeln(' Informe o valor de N:');

readln(n);

if (n = 0) then

begin

writeln(' Digite um valor diferente de 0!');

end;

until n<>0;

h:=0;

for i:=1 to n do

begin

h:= h + (1/i);

end;

writeln(' h = ', h);

readkey;

end.