Отметьте и последовательно соедините на коорд.плоскости точки, координаты которых в двоичной системе счисления: (101, 101) (101, 101000) (11001, 101000) (11001, 101) (10100, 101) (10100, 11110) (1010, 11110) (1010, 101) (101, 101)

1. координаты первой точки (101; 101) в десятичной системе - (5; 5) т.к. 101 = 1×2^2 + 0×2^1 + 1×2^0 = 4+0+1 = 5 2. координаты второй точки (101; 101000) или в десятичной -  (5; 40) 101 мы уже вычислили 101000 = 1×2^5 + 0×2^4 + 1×2^3 + 0×2^2 + 0×2^1 + 0×2^0 = 32+0+8+0+0+0 = 40 3. координаты 3ей точки (11001; 101000)в десятичной - (25; 40)11001 = 1×2^4 + 1×2^3 + 0×2^2 + 0×2^1 + 1×2^0 = 16+8+0+0+1 = 25 4. координаты 4й точки (11001; 101) или в десятичной - (25; 5) 5. координаты 5й точки (10100; 101) или (20; 5) 10100 = 1×2^4 + 0×2^3 + 1×2^2 + 0×2^1 + 0×2^0 = 16+0+4+0+0 = 20 6. координаты 6й точки (10100; 11110) или (20; 30) 11110 = 1×2^4 + 1×2^3 + 1×2^2 + 1×2^1 + 0×2^0 = 16+8+4+2+0 = 30 7. координаты 7й (1010; 11110) или (10; 30) 1010 = 1×2^3 + 0×2^2 +1×2^1 + 0×2^0 = 8+0+2+0 = 10 8. координаты 8й (1010; 101), т.е. (10; 5) 9. и координаты 9й те же, что и у первой (5; 5) 10. при соединении точек получится замкнутая фигура.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017// внимание! если программа не работает, обновите версию! begin  var s: =readlnstring('введите имя и фамилию: ');   var g: =readlnstring('введите год рождения: ');   var n: =readinteger('сколько раз повторить вывод? ');   loop n do writeln(s,newline,g)end.примервведите имя и фамилию: иванов сергейвведите год рождения: 24.06.2001сколько раз повторить вывод? 3иванов сергей24.06.2001иванов сергей24.06.2001иванов сергей24.06.2001

Var a, b: array[1..10000] of integer; n, count, i, ianswer, cnt: integer; begin readln(n); //количество пар for i: = 1 to n do begin read(a[i]); //читаем первый катет readln(b[i]); //читаем второй катет end; ianswer: = 1; count: = 1; for i: = 2 to n do begin   if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);   if a[i]*b[i] >   a[ianswer]*b[ianswer] then   begin   count: = 1;   ianswer: =i;   end; end; if count = 1 then begin writeln('треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer], 'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. номер треуголника: ', ianswer); halt; end; writeln('всего ', count, ' треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]); cnt: = 1; for i: = 1 to n do if a[ianswer]*b[ianswer] = a[i] * b[i] then begin writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. номер этого треугольника: ', i); inc(cnt); end; end.