Написать программу цикла while 1) (x-2)(x-4)(x-6)(x-64)

    441(5) + 122(5)   1113(5) объяснение, как складывать числа в системе по основанию n (у нас n=5) сложение производим "в столбик" в привычной нам десятичной системе счисления и начинаем с младших (правых) разрядов. 2+1=3. если сумма меньше n (в данном случае меньше, т.к. 3< 5), то записываем её "как есть" и переходим к следующему разряду. 4+2=6. тут сумма больше n (6> 5), поэтому вычитаем из этой суммы n (т.е. 5) и получаем 6-5=1. эту единичку мы записываем, а за то, что вычли пятерку (т.е. n), пишем "один в уме", т.е. +1 переходит в следующий разряд. 4+1+1=6 (4+1 было, и еще +1 от переноса). снова 6> 5, как описано выше, снова 6-5=1, снова 1 пишем и +1 в следующий разряд. +1 и даст 1, поскольку складывать больше нечего. ответ: 1113

Var a: array[1 .. 250] of integer; s,n,i: integer; begin write('please enter length of the array: '); readln(n); for i: =1 to n do begin write ('please enter an array item '); readln (a[i]); end; s: =0; for i: =1 to n do s: =s+a[i]; writeln('s=',s); end. пример (в первой строке вводится количество элементов, далее - сами элементы): please enter length of the array: 5please enter an array item 3please enter an array item 8please enter an array item 2please enter an array item 4please enter an array item 6s=23