Program Pzim ;
{Faça um programa para somar os N primeiros
termos da série abaixo:
1 + 3/1 + 5/3 + 7/5 + 9/7 + ...}
var
n,i:integer;
n1, n2, soma:real; {variaveis}
Begin
n1:=3;{inicia as variaveis com 3 e 1, }
n2:=1;
soma:=1; {inicia a soma com 1, por isso o for, faz até n-1, pois como o primeiro termo é um, ele já vem incrementado}
write('Digite um numero : ');
readln(n);
for i:=1 to n-1 do {faz de 1 até n-1, pois a soma é iniciado já com 1}
begin
soma:=soma+(n1/n2);
writelnl('1');
writeln(n1,'/',n2); {essa linha é facultativa, é só pra visualizar as divisoes}
n1:=n1+2; {incrementa n1 mais 2}
n2:=n2+2; {incrementa n2 mais 2}
end;
writeln('A soma dos ',n,' termos de "1+ 3/1 + ... N" é: ',soma); {mostra a resposta}
End.
