Question

Паскаль. Программа для вычисления суммы ряда чисел S=1/3+1/5+1/7+1/9+1/n

Answer 1

program ryad;
var
a,i:integer;
b:real;
begin
writeln('Vvelbnt "N"');
readln(a);
if (a mod 2) = 0 then writeln('Chislo "N" dollno nut chetnuym')
else begin
     b:=0;
     i:=3;
     repeat
         b:=b+(1/i);
         i:=i+2;
     until i=a;
writeln('S=',b);
end;
readln;
end.