Приведенная программа на Паскале реализует алгоритм поразрядного умножения числа на число от 0 до 9, вводимых с клавиатуры приведена с ошибкой. Найдите ее.

const m=…; var a, rez: array [1..m] of byte; i, n, x, k: integer; stroka: string; begin readln (stroka); readln (x); n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do begin rez[i-1]:= rez[i-1]+rez[i] mod 10; rez[i]:= rez[i] div 10; end for i:=1 to n do write (rez[i]); end.

Правильный ответ:

• # Признак пересечения одного выпуклого многоугольника с другим:
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива . На печать выйдет: … for i:=1 to n do for j:=1 to n do writeln (A[i], A[j]); …
• # Приведенная программа на Паскале позволяет … var a, b, s, x: integer; begin readln (a); readln (b); s:=0; while a<>0 do begin x:=a mod b; s:=s*10 +x; a:=a div b; end; writeln (s); end.
• # Предскажите, какие значения будет содержать массив х, в результате выполнения программы на Паскале, фрагмент которой приведен ниже, если первоначально в массиве соделжались значения . Ответ дайте в поле ввода без пробелов: . . . for i:=1 to 5 do readln (x[i]); for j:=5 downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin y:=x[i]; x[i]:= x[i+1]; x[i+1]:=y; end; …
• # Ниже приведен фрагмент программы … for i:=(n div 2 + 1) to n do for j:=??? x[i,j]:=1; … выполнение которой приведет к такому заполнению квадратного массива: \begin{matrix} 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&1&0&0&0&0\\ 0&0&0&1&1&1&0&0&0\\ 0&0&1&1&1&1&1&0&0\\ 0&1&1&1&1&1&1&1&0\\ 1&1&1&1&1&1&1&1&1 \end{matrix} Укажите, что должно стоять вместо вопросительных знаков в заголовке внутреннего цикла: