| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Наименьший делитель
Cooller © (2006-11-27 14:54:00)Добрый вечер!
Подскажите пожалуйста как можно найти наименьший делитель числа например для числа 15 это 3, для 77 это 7.
MBo (2006-11-27 17:22:00) [1]>Игорь Шевченко © (27.11.06 16:44) [21]
Новые рассказы рассеянного магистра
http://slil.ru/23030926
А первой книги не видел
Игорь Шевченко (2006-11-27 16:44:00) [2]Рамиль © (27.11.06 16:30) [19]
<offtopic>
У меня в бумажном виде. Впрочем, найдешь в электронном, дай знать :)
</offtopic>
Cawa (2006-11-27 16:36:00) [3]а как вам такая прога
writeLn('наименьший делитель 1');
Рамиль (2006-11-27 16:30:00) [4]
> Игорь Шевченко © (27.11.06 16:26) [18]
> А таже Владимир Левшин и Эмилия Александрова.
Эх.. Ностальгия.. Скачать почитать что ли :)
Игорь Шевченко (2006-11-27 16:26:00) [5]Яков Исидорович не в почете. А таже Владимир Левшин и Эмилия Александрова.
Плохиш (2006-11-27 16:21:00) [6]
> alex810 © (27.11.06 15:49) [14]
>
> > А какое число может не делиться без остатка на числа
> от
> >
> > > 2 до 10
> >
> > 13
>
> Если оно не делиться на эти числа тогда оно делиться только
> само на себя
13^2
Anatoly Podgoretsky (2006-11-27 15:55:00) [7]> alex810 (27.11.2006 15:49:14) [14]
> А какое число может не делиться без остатка на числа от 2 до 10
101
Рамиль (2006-11-27 15:52:00) [8]
> Если оно не делиться на эти числа тогда оно делиться только
> само на себя
Ой ли?
alex810 (2006-11-27 15:49:00) [9]
> А какое число может не делиться без остатка на числа от
>
> > 2 до 10
>
> 13
Если оно не делиться на эти числа тогда оно делиться только само на себя
Рамиль (2006-11-27 15:46:00) [10]Вернее
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
:)
Anatoly Podgoretsky (2006-11-27 15:45:00) [11]
> А какое число может не делиться без остатка на числа от
> 2 до 10
13
Рамиль (2006-11-27 15:44:00) [12]
> 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
alex810 (2006-11-27 15:17:00) [13]
> А, например, для 143?
Извените не досмотрел
Cooller (2006-11-27 15:16:00) [14]Всё теперь понял что не так я убрал exit, и она писала все делители.
Как можно обойтись без него а то прога вылетает мгновенно и я не успеваю посмотреть наименьший делитель
alex810 (2006-11-27 15:16:00) [15]
> И программа не много не точная она ищит все делители числа
> а мне нужен только наименьший
Там есть выход из цикла.
А какое число может не делиться без остатка на числа от 2 до 10?
Рамиль (2006-11-27 15:14:00) [16]
> Наверно так будет правельно for i:=2 to a do
Нет, не правильно. Правильно в [2]
Рамиль (2006-11-27 15:12:00) [17]
> alex810 © (27.11.06 15:05) [4]
А, например, для 143?
Cooller (2006-11-27 15:11:00) [18]>for i:=2 to 10 do
Наверно так будет правельно for i:=2 to a do
И программа не много не точная она ищит все делители числа а мне нужен только наименьший
alex810 (2006-11-27 15:05:00) [19]Забыл сделать выход из цикла
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.
alex810 (2006-11-27 15:03:00) [20]Посмоти не оно?
р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.
| |
Страницы: 