Наименьший делитель

← →
Cooller (2006-11-27 14:54) [0]

Добрый вечер!
Подскажите пожалуйста как можно найти наименьший делитель числа например для числа 15 это 3, для 77 это 7.

← →
Anatoly Podgoretsky © (2006-11-27 14:56) [1]

> Cooller (27.11.2006 14:54:00) [0]

А не Один?

← →
MBo © (2006-11-27 14:59) [2]

Проверять остаток от деления (Mod) для чисел от 2 до Round(Sqrt(N))

← →
alex810 © (2006-11-27 15:03) [3]

Посмоти не оно?

рrogram q1; uses crt; var i:integer; a:integer; begin writeln("Vvedi chislo"); readln (a); for i:=2 to 10 do begin if (a mod i = 0) then writeln("Naimenshij delitel ",i); end; end.

← →
alex810 © (2006-11-27 15:05) [4]

Забыл сделать выход из цикла
program q1; uses crt; var i:integer; a:integer; begin clrscr; writeln("Vvedi chislo"); readln (a); for i:=2 to 10 do begin if (a mod i = 0) then begin writeln("Naimenshij delitel ",i); exit; end; end; end.

← →
Cooller (2006-11-27 15:11) [5]

>for i:=2 to 10 do
Наверно так будет правельно for i:=2 to a do
И программа не много не точная она ищит все делители числа а мне нужен только наименьший

← →
Рамиль © (2006-11-27 15:12) [6]

> alex810 © (27.11.06 15:05) [4]

А, например, для 143?

← →
Рамиль © (2006-11-27 15:14) [7]

> Наверно так будет правельно for i:=2 to a do

Нет, не правильно. Правильно в [2]

← →
alex810 © (2006-11-27 15:16) [8]

> И программа не много не точная она ищит все делители числа
> а мне нужен только наименьший

Там есть выход из цикла.
А какое число может не делиться без остатка на числа от 2 до 10?

← →
Cooller (2006-11-27 15:16) [9]

Всё теперь понял что не так я убрал exit, и она писала все делители.
Как можно обойтись без него а то прога вылетает мгновенно и я не успеваю посмотреть наименьший делитель

← →
alex810 © (2006-11-27 15:17) [10]

> А, например, для 143?

Извените не досмотрел

← →
Рамиль © (2006-11-27 15:44) [11]

> Cooller (27.11.06 15:16) [9]

Однако...

function ND(const Value: integer): integer; var i: integer; begin Result := 0; if abs(Value) > 3 then for i := 2 to Round(Sqrt(N)) do if Value mod i = 0 then begin Result := i; break; end; if Result = 0 then Result := Value; end

← →
Anatoly Podgoretsky © (2006-11-27 15:45) [12]

> А какое число может не делиться без остатка на числа от
> 2 до 10

13

← →
Рамиль © (2006-11-27 15:46) [13]

Вернее
function ND(const Value: integer): integer; var i: integer; begin Result := Value; if abs(Value) > 3 then for i := 2 to Round(Sqrt(N)) do if Value mod i = 0 then begin Result := i; break; end; end
:)

← →
alex810 © (2006-11-27 15:49) [14]

> А какое число может не делиться без остатка на числа от
>
> > 2 до 10
>
> 13

Если оно не делиться на эти числа тогда оно делиться только само на себя

← →
Рамиль © (2006-11-27 15:52) [15]

> Если оно не делиться на эти числа тогда оно делиться только
> само на себя

Ой ли?

> alex810 (27.11.2006 15:49:14) [14]

> А какое число может не делиться без остатка на числа от 2 до 10

101

> alex810 © (27.11.06 15:49) [14]
>
> > А какое число может не делиться без остатка на числа
> от
> >
> > > 2 до 10
> >
> > 13
>
> Если оно не делиться на эти числа тогда оно делиться только
> само на себя

13^2

Яков Исидорович не в почете. А таже Владимир Левшин и Эмилия Александрова.

> Игорь Шевченко © (27.11.06 16:26) [18]
> А таже Владимир Левшин и Эмилия Александрова.

Эх.. Ностальгия.. Скачать почитать что ли :)

а как вам такая прога
writeLn("наименьший делитель 1");

Рамиль © (27.11.06 16:30) [19]

<offtopic>
У меня в бумажном виде. Впрочем, найдешь в электронном, дай знать :)
</offtopic>

>Игорь Шевченко © (27.11.06 16:44) [21]
Новые рассказы рассеянного магистра
http://slil.ru/23030926

А первой книги не видел

Наименьший делитель Найти похожие ветки