В переменную 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 ('несовершенное');…

…k:=0;for i:=2 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 if n mod i=0 then k:=k+i;if k=n then writeln ('число совершенное')else writeln ('число несовершенное');…

Предскажите, какое содержимое будет находится в переменной s в результате работы программы на Паскале:

var a, b, s, x: integer;begina:=25; b:=5; s:=0;while a<>0 dobeginx:=a mod b; s:=s*10 +x; a:=a div b;writeln (s);end;end.

Фрагмент программы на Паскале проверяет - простое ли число 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 ('число составное');…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}.

… for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …

Что выведется на экран в результате работы программы, фрагмент которой приведен ниже:

… stroka:='(5+y)*(x-4)'; n:=length (stroka); s:=0; for i:=1 to n do  begin a[i]:=copy(stroka, i, 1); flag[i]:=0; end; for i:=1 to n do  begin  if a[i]="(" then flag [i]:=1;  if a[i]=")" then flag [i]:=-1;  end; for i:=1 to n do  begin  s:=s+flag [i];  if s<0 then x:=1;  end; if (s=0) and (x=0) then writeln ('верно') else writeln ('неверно');…

Каков будет результат выполнения программы, если с клавиатуры вводится слово "Ротор":

var a:string; k,n,i: integer;begin readln (a); k:=0; n:=length(a); for i:=1 to n div 2 do  if copy(a,i,1) <> copy(a,n-i+1,1) then k:=k+1;writeln (k);end.

Каков будет результат выполнения программы, если с клавиатуры вводится слово "Ротор":

var a:string; k,n,i: integer;begin readln (a); k:=0; n:=length(a); for i:=1 to n do  if copy(a,i,1) <> copy(a,n-i+1,1) then k:=1;writeln (k);end.

Каков будет результат выполнения программы на Паскале, если с клавиатуры вводится слово "Ротор":

var 	a:string; k,n,i: integer;begin readln (a); k:=0; n:=length(a); for i:=1 to n do  if copy(a,i,1) <> copy(a,n-i+1,1) then k:=k+1;writeln (k);end.

Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. Для вывода на экран "Треугольника Паскаля" в программу дописали фрагмент:

…for i:=1 to n do begin for j:=1 to ? do write (a[i,j]); writeln; end;…

Какое значение необходимо написать в заголовке внутреннего цикла вместо знака вопроса?