Главная /
Решение олимпиадных задач по информатике /
Фрагмент программы на Паскале проверяет - простое ли число 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
неверна проверка количества числа делителей. Правильно:
if k=1 then writeln ('число простое')
неверно находится число делителей. Правильно:
k:=k+i
неверно записана команда ветвления. Правильно - в одну строку
Сложность вопроса
88
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Большое спасибо за ответы по intuit.
12 июн 2020
Аноним
просто спасибо
24 янв 2016
Другие ответы на вопросы из темы программирование интуит.
- # Укажите, какой фрагмент программы на Паскале проверяет - совершенное ли число 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; …