Даннмассив натуральных чисел. массив заполнить произвольно случайными числами и вывести в одну строку. найти сумму элементов. кратных данному k. вывести с клавы.. контра.

const n = 20;

var a: array [1..n] of integer;       i, k, sum, s: integer; begin  for i : = 1 to n do  begin      a[i] : = random(11); //заполняем    sum : = sum + a[i]; //сумма всех эл-тов  end;   for i : = 1 to n do    write(a[i], ' '); //выводим  writeln; //переход на новую строку  writeln(sum);   readln(k);   for i : = 1 to n do    if ((a[i] mod k) = 0) then  s : = s + a[i]; //сумма эл-тов кратных k  writeln(s); end.

//для среды pascalabc uses graphabc; const k=6; var       n,x,y: integer; procedure snow (x0,y0,r,n: integer);   const t=2*pi/k;   var       i,x,y: integer; begin   for i: =1 to k do     begin       x: =x0+round(r*cos(i*t));       y: =y0-round(r*sin(i*t));       line(x0,y0,x,y);       if n> 1 then snow(x,y,r div 3,n-1);     end;   end; begin repeat   writeln('glubina rekursii do 6: ');   readln(n); until n in [1..6]; x: =windowwidth div 2; y: =windowheight div 2; snow(x,y,100,n); end.

  xyy -yyx   zxz y-y в среднем разряде, конечно же, даст 0. можно ли считать, что х=0? нет, по условию x> y, а y не может быть отрицательным. остается предположить, что от y для вычитания в младшем разряде "заняли единичку", а для вычитания в среднем разряде тоже "заняли единичку" в старшем разряде. в семиричной системе единичка - это 7 (как и в десятичной - 10). получаем следующие соотношения: y+7-x=z младший разряд y+7-1-y=x средний разряд ⇒ x=6 x-y-1=z старший разряд подставляем 6 вместо х в остальные соотношения y+7-6=z; y+1=z 6-y-1=z; 5-y=z правые части равны z, приравниваем левые части y+1=5-y; 2y=4 ⇒ y=2 осталось найти z: z=y+1; z=2+1 ⇒ z=3 итак, x=6, y=2, z=3. yyx=226₇, xyy=622₇, zxz=363₇ 622₇ - 226₇ = 363₇ - это расшифрованный пример.