Восстановите рисунок по заданным координатам. Расставьте точки и соедините их в правильном порядке. 1(1011, 111) 5(1110, 110) 9(1100, 11) 13(100, 1) 17(11, 110) 21(101, 111) 25(1000, 101) 29(1100, 101) 2(1100, 111) 6(1111, 110) 10(1010, 1) 14(10, 10) 18(1, 111) 22(110, 101) 26(111, 101) 30(1100, 110) 3(1101, 110) 7(10000, 101) 11(111, 1) 15(11, 10) 19(11, 1000) 23(111, 110) 27(1000, 100) 31(1011, 111) 4(1101, 101) 8(1111, 101) 12(101, 10) 16(100, 11) 20(100, 1000) 24(1001, 110) 28(1010, 100)

Координаты даны в двоичной системе счисления, поэтому переводим их в десятичную.

Потом сортируем по порядку по номерам точек.

И отмечаем точки на графике, соединяя соседние отрезком.

Я все эти преобразования сделал в таблице Эксель.

Саму таблицу и картинку, полученную после нанесения всех точек смотри внизу.

А вот координаты точек, отсортированные и в десятичной системе:

№     x     y

1     11     7

2     12     7

3     13     6

4     13     5

5     14     6

6     15     6

7     16     5

8     15     5

9     12     3

10     10     1

11     7     1

12     5     2

13     4     1

14     2     2

15     3     2

16     4     3

17     3     6

18     1     7

19     3     8

20     4     8

21     5     7

22     6     5

23     7     6

24     9     6

25     8     5

26     7     5

27     8     4

28     10     4

29     12     5

30     12     6

31     11     7

Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))