Приведенная программа на Паскале реализует алгоритм …

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] div 10; rez[i]:= rez[i] mod 10; end for i:=1 to n do write (rez[i]); end.

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

поразрядного умножения числа на цифру, вводимых с клавиатуры

перевода числа из 10-тичной системы счисления в -ричную

перевода числa из х-ричной системы счисления в 10-тичную

нахождения суммы цифр числа, возведенных в степень

• # Назначение программы на Паскале… var a: string; b, i, st, n, s, x, k:integer; begin readln (a); readln(b); n:=length(a); s:=0; st:=1; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b; end; writeln (s); end.
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной будет: … d:=0; n:=3; for j:=1 to n do for i:=1 to n do x[i,j]:=i+j; for j:=1 to n do begin m[j]:=x[1,j]; for i:=1 to n do begin if x[i,j]>m[j] then m[j]:=x[i,j]; end; d:=d+m[j]; end …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, массив Flag будет содержать: … readln (n); for i:=1 to n do a[i]:=i; for i:=2 to n div 2 do if flag[i]=0 then for j:=i+1 to n do if (a[j] mod a[i]=0) then flag[j]:=1; …
• # Сколько путей ведет из клетки (1, 1) в клетку (n, 1) двумерного массива, если двигаться можно только вниз и вправо?
• # Какое тело цикла необходимо создать, чтобы двумерный массив в результате выполнения программы на Паскале (фрагмент ниже)… … x:=1; for j:=1 to n do for i:=1 to j do begin ??? end;… … заполнялся так: \begin{matrix} 1&2&4&7\\ 3&5&8&0\\ 6&9&0&0\\ 10&0&0&0 \end{matrix}