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

Question

Информатика

Троки

2 июня, 05:46

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

+2

Ответы (1)

Знаете ответ?

Миланета · 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.