Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];
Вниз
Наименьший делитель Найти похожие ветки
← →
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]
> Если оно не делиться на эти числа тогда оно делиться только
> само на себя
Ой ли?
← →
Anatoly Podgoretsky © (2006-11-27 15:55) [16]> alex810 (27.11.2006 15:49:14) [14]
> А какое число может не делиться без остатка на числа от 2 до 10
101
← →
Плохиш © (2006-11-27 16:21) [17]
> alex810 © (27.11.06 15:49) [14]
>
> > А какое число может не делиться без остатка на числа
> от
> >
> > > 2 до 10
> >
> > 13
>
> Если оно не делиться на эти числа тогда оно делиться только
> само на себя
13^2
← →
Игорь Шевченко © (2006-11-27 16:26) [18]Яков Исидорович не в почете. А таже Владимир Левшин и Эмилия Александрова.
← →
Рамиль © (2006-11-27 16:30) [19]
> Игорь Шевченко © (27.11.06 16:26) [18]
> А таже Владимир Левшин и Эмилия Александрова.
Эх.. Ностальгия.. Скачать почитать что ли :)
← →
Cawa © (2006-11-27 16:36) [20]а как вам такая прога
writeLn("наименьший делитель 1");
← →
Игорь Шевченко © (2006-11-27 16:44) [21]Рамиль © (27.11.06 16:30) [19]
<offtopic>
У меня в бумажном виде. Впрочем, найдешь в электронном, дай знать :)
</offtopic>
← →
MBo © (2006-11-27 17:22) [22]>Игорь Шевченко © (27.11.06 16:44) [21]
Новые рассказы рассеянного магистра
http://slil.ru/23030926
А первой книги не видел
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.04 c
