Question

S=1+1/2+1/3+1/4+...+1/npascal. решить с циклом While

Answer 1

Program abc;

var
  n, i: integer;
  s: real;

begin
  write('Введите n: ');
  readln(n);
  for i := 1 to n do
    s := s + 1 / i;
  write('s= ', s);
end.

Answer 2

To calculate the sum S=1+1/2+1/3+1/4+...+1/n using a while loop, we need to loop through each term and add them together until n. Here's a Python code to achieve this:

pythonCopy code
def calculate_sum(n):
    if n <= 0:
        return 0

    total_sum = 0
    i = 1

    while i <= n:
        total_sum += 1 / i
        i += 1

    return total_sum

# Replace 'npascal' with your desired value of n
npascal = 10
result = calculate_sum(npascal)
print("The sum S is:", result)

You can change the value of npascal to any positive integer to calculate the sum up to that value. For instance, if npascal = 10, the output will be the sum of the first 10 terms:

pythonCopy code
The sum S is: 2.9289682539682538