Чертежнику был дан для исполнения следующий алгоритм (буквами n, a и b обозначены неизвестные числа, n> 1 ) начало сместиться на (-3, 3) повтори n раз сместиться на (a, b) сместиться на (27, 12) конец повтори сместиться на (-22. -7) конец укажите наименьшее возможное значение числа n, для которого найдутся такие значения a и b, что после выполнения программы чертежник возвратится в исходную точку. , не только ответ, нужно !

Чертежник вернется исходную точку, если сумма перемещений и по горизонтали, и по вертикали будет равна нулю. перемещение по горизонтали: sx=-3+n(a+27)-22=-25+n(a+27); перемещение по вертикали: sy=3+n(b+12)-7=-4+n(b+12). решение надо найти в целых числах, поэтому и 25, и 4 должны делиться на n без остатка. таким минимальным (и единственным) числом является n=1. тогда a=25-27=-2, b=4-12=-8. ответ: n=1; a=-2; b=-8 замечание: вернуться в исходную точку, т.е. нарисовать замкнутый контур,  можно всегда за одно перемещение - это очевидно. вот если нужно, чтобы n было больше 1, тогда нарисовать такой контур может оказаться невозможным. как, например, в нашем случае.

Const   nx = 30; var   a: array[1..nx]of integer; i,n,s,p: integer; begin writeln('введите число элементов массива'); read(n); p: =1; randomize; for i: = 1 to n do   begin  a[i]: = random(25)-10;   if i mod 2 = 0 then begin s: = s + a[i]; p: =p * a[i];   write(a[i]: 4);   end;   end; writeln; writeln('массив х[',n,']');   for i: = 1 to n do     write(a[i]: 4);   writeln; writeln('сумма s = ', s);   writeln('произведение р = ', p);   end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! 1. в принципе, массив тут совершенно не нужен: begin   readseqintegerwhile(t-> t< > 0).where(t-> (t mod 4=0) and (t mod 10=2))       .defaultifempty.average.println end. 2. но если хочется удлинить решение и получить лишний расход памяти, можно и с массивом: begin   var a: =readseqintegerwhile(t-> t< > 0).toarray;   a.where(t-> (t mod 4=0) and (t mod 10=.average.println end.