VPF::Решение мальнькой, но очень заковыристой задачки

slesh

Дата 27.10.2004, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 21.10.2004

Репутация: нет
Всего: нет

Нужна прога на Паскале которая находит все делители данного числа и записывает в файл. число может быть до 2'000'000'000 в сю эту работу прога должна делать не более чем за 5 секунд. Я знаю что это возможно. Прога мне нужна до 07:30 28 октября 2004 :sample

podval

Дата 27.10.2004, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

Репутация: нет
Всего: 62

Тема перенесена из раздела "Алгоритмы", т.к. собственно алгоритм решения задачи скоро станет неактуальным.

Alex101

Дата 28.10.2004, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 891
Регистрация: 8.4.2002
Где: Москва

Репутация: 2
Всего: 10

Код


Var
a,b: LongInt;
i: Word
Begin
Assign(input,'in.dat');
Assign(output,'out.dat');
ReSet(input);
ReWrite(output);
ReadLn(a);
WriteLn('1');
for i:=2 to Trunc(sqrt(a))-1 do
      if a mod i=0 then 
      Begin
         WriteLn(i);
         WriteLn(a div i)
      End;
b:=Trunc(sqrt(a)));
if b*b=a then WriteLn(b);
{*Тут не знаю, правильно ли написал, да и вообще, может переменная a должна быть Real?*}
WriteLn(a);
Close(input);
Close(output);
End.

К сожалению, не успел, видимо. Но за 5 сек. должна делать, всего-то цикл максимум до 45000

--------------------

С уважением, А. Фролов.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »