7-5r

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

Program A7_05;

Var

 f:text;

 a,b,a1,d,p,i:integer;

 BEGIN

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

  if IoResult<>0 then

   begin writeln('Net faila'); readln;

   exit; end;

   if (EOF(f)) then

   begin writeln('malo dannix'); readln;

   exit; end;

   readln(f,a1);

   if (EOF(f)) then

   begin writeln('malo dannix');readln;

   exit; end;

   readln(f,a);

   d:=a-a1;  p:=0;

   while(not EOF(f)) do

     begin

       readln(f,b);

       if ((b-a)<>d) then

       begin p:=1; break; end;

       a:=b;

     end;

   close(f);

   if (p=0) then

   writeln('a1=',a1,'  d=',d)

   else writeln('Ne progrecciya');

   readln;

 END.

// Program A7_05;

#include <iostream>

#include <fstream>

using namespace std;

int main()

{  ifstream f;

int a,b,a1,d,p=0;;

 f.open("in7_05.txt");

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

 if((f>>a1)==0){cout<<"malo dannix\n";

  return -1;};

 if((f>>a)==0){cout<<"malo dannix\n";

  return -1;};

  d=a-a1;

    while(f>>b)

    {  if(b-a!=d){p=1; break;}

        a=b;

     }

     f.close();

 if(p==0)  cout<<"a1="<<a1<<"   d="

<<d<<endl;

   else cout<<"Ne progressiya\n";

    return 0;

}