переписать программу с Паскаля на С++ var
n:integer;
e,a1,an:real;
begin
repeat
write('e>0 e=');
readln(e);
until e>0;
a1:=0;
an:=1;
n:=1;
repeat
n:=n+1;
a1:=an;
an:=an*(1-1/n);
until abs(an-a1)
write('an=',an:0:6,' |an-a1|=',abs(an-a1):0:6)
end.

1). Ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків.
2). Завжди дотримуйтесь сімейних правил Інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.
3). Завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.
4). Не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.

def bubbleSort(arr):

   n = len(arr)

   count = 0

   # Traverse through all array elements

   for i in range(n-1):

   # range(n) also work but outer loop will repeat one time more than needed.

 

       # Last i elements are already in place

       for j in range(0, n-i-1):

 

           # traverse the array from 0 to n-i-1

           # Swap if the element found is greater

           # than the next element

           if arr[j] > arr[j+1] :

               arr[j], arr[j+1] = arr[j+1], arr[j]

               count = count+1

   return count

               

list = [8, 1, 7, 4, 3, 9, 2, 5, 6, 10]

count = bubbleSort(list)

print(count)

Объяснение:

ответ: 18