Арефьев
4 год назад
Пожалуйста посчитайте с информатикой!!!! Если есть ошибки напишите как правильно Очень нужно!!!
ОТВЕТЫ
Savvelij
Oct 24, 2020
Var
n,k:integer;
Begin
Write('n = ');
ReadLn(n);
k:=3;
While (k<=n div 2)and(n mod k <> 0) do
k:=k+2;
if n mod k = 0 then WriteLn(k)
else WriteLn('У ',n,' нет нечётных делителей, больших 1')
End.
n,k:integer;
Begin
Write('n = ');
ReadLn(n);
k:=3;
While (k<=n div 2)and(n mod k <> 0) do
k:=k+2;
if n mod k = 0 then WriteLn(k)
else WriteLn('У ',n,' нет нечётных делителей, больших 1')
End.
542
Смежные вопросы:
