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

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

(Отметьте один правильный вариант ответа.)

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

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

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

(Верный ответ)

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

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

Похожие вопросы

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

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

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

…j:=1; k:=0;for i:=1 to n do if x[i] mod 2=0 then  begin  y[j]:=i; j:=j+1;  end;…

Фрагмент программы на Паскале проверяет - совершенное ли число n, введенное с клавиатуры. Выберите все варианты, которые помогут исправить в нем ошибку:

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

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

… for i:=1 to 5 do a[i]:=i;m:=0;for i:=1 to 5 do if a[i]<m then m:=a[i];…

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

… for i:=1 to 5 do a[i]:=i-6;m:=a[1];for i:=1 to 5 do if a[i]>m then a[i]:=m;…

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

… for i:=1 to 5 do a[i]:=i-5;m:=a[1];for i:=1 to 5 do if a[i]<m then m:=a[i];…

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

… for i:=1 to 5 do a[i]:=i-6;m:=0;for i:=1 to 5 do if a[i]>m then m:=a[i];…

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

…n:=10; k:=n div 2;for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end;for i:=1 to k do s:=s+x[y[i]]; …

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

…n:=8; k:=n div 2;for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end;for i:=1 to k do s:=s+x[y[i]]; …