Дано натуральное число N. Вычислить: S=1+1/3+1/5+1/7+…+1/(2*N+1)

var n,i,a:integer;
s:real;
begin
writeln ('Введите натуральное число');
readln (n);
s:=0;
a:=1;
while a<=(2*n+1) do begin
s:=s+1/a;
a:=a+2;
end;
writeln ('Сумма ряда = ',s);
end.

var n,i,a:integer;

s:real;

begin

writeln ('Введите натуральное число');

readln (n);

s:=0;

a:=1;

while a<=(2*n+1) do begin

s:=s+1/a;

a:=a+2;

end;

writeln ('Сумма ряда = ',s);

end.

Добавить комментарий Отменить ответ

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.

Дано натуральное число N. Вычислить: S=1+1/3+1/5+1/7+…+1/(2*N+1)

Похожие записи:

Добавить комментарий Отменить ответ