Дано натуральное n. найдите сумму чисел 1/3+1/5+1/7++1/(2х+1)

Var    n, i: word;   
sum: real;
begin   
write ('n = ');    
readln (n);   
sum := 0;   
for i := 1 to n do       
sum := sum + 1/(2*i+1);   
writeln (sum:6:5);
end.

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Range(1,ReadInteger).Select(i->1/(2*i+1)).Sum)
end.

Пример
10
1.1808745777786

#a)

print('Input n: ')

n = input()

if int(n) < 0:

   print('Incorrect input')

else:

   sum = 0

   for i in range(int(n) + 1):

       sum += i

   print('Sum is ', sum)

##

#b)

print('Input n: ')

n = input()

if int(n) < 0:

   print('Incorrect input')

else:

  sum = 0

  for i in range(int(n) + 1):

      sum += i*i

  print('Sum is ', sum)

##

#c)

print('Input n: ')

n = input()

if int(n) < 0:

   print('Incorrect input')

else:

   sum = 0

   for i in range(0, int(n) + 1, 2):

       sum += i

   print('Sum is ', sum)

##

#d)

sum = 0

for i in range(10, 100, 1):

   sum += i

print('Sum is ', sum)

Объяснение:

program kalk;

var

a, b, c :integer;

begin

writeln('Введите 1 число:');

readln(a);

writeln('Введите 2 число:');

readln(b);

writeln('Введите 3 число:');

readln(c);

writeln('Cумма трех чисел равна',a+b+c);

writeln('Разность трех чисел равна',a-b-c);

writeln('Произведение трех чисел равно',a*b*c);

end.

Есть вариант поставить вместо:

writeln('Введите 1 число:');

readln(a);

writeln('Введите 2 число:');

readln(b);

writeln('Введите 3 число:');

readln(c);

поставить так:

writeln('Введите 3 числа: ');

readln(a, b, c);