Решение олимпиадных задач по информатике

Укажите, какой фрагмент программы на Паскале проверяет - совершенное ли число n, введенное с клавиатуры:

(Ответ считается верным, если отмечены все правильные варианты ответов.)

Варианты ответа

 …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:=1 to n-1 do if n mod i=0 then k:=k+1;if k=2 then writeln ('+')else writeln ('-');…

 …k:=0;for i:=1 to n do if n mod i=0 then k:=k+i;if k=n then writeln ('+')else writeln ('-');…

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

Укажите, какой фрагмент программы на Паскале проверяет - простое ли число

, введенное с клавиатуры:

Фрагмент программы на Паскале проверяет - простое ли число 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:=5;for i:=1 to n do  begin x[i]:=n-i+1; y[i]:=i; end;for j:=n downto 2 do  for i:=1 to j-1 do  if x[i]>x[i+1] then     begin	g:=x[i]; x[i]:= x[i+1]; x[i+1]:=g;	g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;	end;for i:=1 to n do write (x[i]+y[i]); . . .

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

…a:=100; n:=5; i:=0;while (a<>0) dobegini:=i+1;write (a mod n);a:=a div n;end; …

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

…s:=0;for i:=1 to n dofor j:=1 to n doif (i>n-j+1) then s:=s+x[i,j];…

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

…max:=x[1,1]; min:=x[1,1];for i:=1 to n dofor j:=1 to m doif x[i,j]>max then max:=x[i,j]else min:=x[i,j];…

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

…d:=0;for j:=1 to n dobeginm[j]:=x[1,j];for i:=1 to n dobeginif x[i,j]<m[j] then m[j]:=x[i,j];end;d:=d+m[j];	end…

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

…s:=0;for i:=1 to n dofor j:=1 to n doif (i<=n-j+1) then s:=s+x[i,j];…

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

…d:=0;for j:=1 to n dobeginm[j]:=x[1,j];for i:=1 to n dobeginif x[i,j]>m[j] then m[j]:=x[i,j];end;d:=d+m[j]; end…