Фрагмент программы на Паскале проверяет - простое ли число n, введенное с клавиатуры, он не правильный. Укажите возможные правильные варианты.

… ... k:=0; for i:=1 to n-1 do if n mod i=0 then k:=k+1; if k=2 then writeln ('число простое') else writeln ('число составное'); …

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

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