7-3r

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Program A7_03;

Var

 f:text;

 a,gl,gr,k,nk:integer;

 BEGIN

  assign(f,'in7_03.txt'); reset(f);

  if IoResult<>0 then

   begin writeln('Net faila'); exit; end;

   k:=1; gl:=2; gr:= 1; nk:=0;

   while(not EOF(f)) do

     begin

       readln(f,a);

       if(a>gl) and (a<gr) then INC(nk);

       INC(k); gl:=gl*2; gr:=gr*k;

     end;

   close(f);

   writeln(nk);

   readln;

 END.

// Program A7_03;

#include <iostream>

#include <fstream>

#include <cmath>

using namespace std;

int main()

{  ifstream f;

int a,gl,gr,k,nk;

    f.open("in7_03.txt");

    if (!f) { cout<<"net faila\n"; return -1;}

    k=1; gl=2; gr=1; nk=0;

    while(f>>a)

    {  if(a>gl  &&  a<gr) nk++;

        k++; gl=gl*2; gr=gr*k;

    }

       f.close();

       cout<<nk<<endl;

    return 0;

}