Составьте программу вычисления суммы 2/3+3/4+4/5++10/11 с использованием оператора while

Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
 begin
 i:=i+1;
 s:=s+i/(i+1);
 end;
writeln('s = ',s:6:4);
end.

Результат:
s = 7.4801

Программа

var

 A: array[1..8] of integer;

 B: array[1..8] of integer;

 i: integer;

begin

 Writeln('Заполните массив ');

 for i:=1 to 8 do

   begin

   Read(A[i]);

   if odd(A[i]) then //* смотри примечание после кода

     B[i]:=A[i]

   end;

   Writeln('Нечётные числа массива ');

   for i:=1 to 8 do

   begin

     if B[i]>0 then

       Write(B[i],' ');

   end;

end.

Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false

Тестовый ввод программы показан в приложении к решению

// Програма1:

#include <iostream>

using namespace std;

const int n = 15;

int main() {

int i, count;

float B, A[n];

 

cout << "B=";

cin >> B;

for(i = 0; i < n; i++){

 cout << "A[" << i << "]="; cin >> A[i];

}

 

count = 0;

for(i = 0; i < n; i++)

 if (A[i] > B)

  count++;

cout << count << endl;

 

return 0;

}

// Програма2:

#include <iostream>

using namespace std;

const int n = 15;

int main() {

  int i, count;

  float B, A[n] = {3.05,-9,-5,22.5,12,-6.045,5,9,3,-5,4.1,8,1,0,15};

  cout << "B=";

  cin >> B;

  count = 0;

  for(i = 0; i < n; i++)

      if (*(A + i) > B)

          count++;

  cout << count << endl;

  return 0;

}