Предскажите результат выполнения программы на Паскале (фрагмент ниже):

… a:='1234'; n:=length(a); while (n>1) do begin s:=0; for i:=1 to n do begin val (copy(a,i,1),x,k); s:=s+x; end; str(s,a); n:=length(a); end; writeln (s); …

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

• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп: … for i:=1 to n do for j:=1 to n do if i<>j then writeln (A[i], A[j]); …
• # Предскажите, какое содержимое будет находится в переменной s в результате работы программы на Паскале: var a, b, s, x: integer; begin a:=25; b:=5; s:=0; while a<>0 do begin x:=a mod b; s:=s*10 +x; a:=a div b; writeln (s); end; end.
• # В результате приведенной программы на Паскале на экран выводится: const m=…; var a, rez: array [1..m] of byte; i, n, x, k: integer; stroke: string; begin stroke:='1234'; x:=5; 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.
• # Для сортировки различных частей одномерного массива, выбранных по определенному правилу (так, чтобы "невыбранные" элементы оставались стоять на своих местах), необходимо:
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдет: … max:=x[1,1]; min:=x[1,1]; for i:=1 to n do for j:=1 to m do if x[i,j]>max then max:=x[i,j] else min:=x[i,j]; …