В переменную n с клавиатуры вводится значение (n=6). Предскажите результат работы программы (что выведется на экран):

… k:=0; for i:=1 to n-1 do if n mod i=0 then k:=k+i; if k=n then writeln ('совершенное') else writeln ('несовершенное'); …

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

• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива . На печать выйдет: … for i:=1 to n-1 do for j:=i+1 to n do writeln (A[i], A[j]); …
• # В результате приведенной программы на Паскале на экран выводится: 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]; …
• # Программа на Паскале, фрагмент которой приведен ниже, выводит индексы положительных элементов двумерного массива, произведение индексов которых четно. Какое логическое выражение вместо вопросительного знака в ветвлении необходимо указать: … for i:=1 to n do for j:=1 to m do if ? then writeln (i,j); …
• # Какие значения примут элементы последней строки двумерного массива, размерностью 4x4, в результате выполнения программы на Паскале, фрагмент которй приведен ниже (введите числа через пробел) … x:=1; for i:=1 to n do for j:=1 to n do begin if i mod 2=o then a[i,j]:=x else a[i,n-j+1]:=x; x:=x+1; end; …