Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Object Pascal: кроссплатформенные технологии > Ключ к шифру


Автор: LoMoNoSoV 13.12.2007, 00:52
Помогите или подкиньте мне котуюто идейку к задаче.
Я сам еще не очень сообразил ее но думаю што вы поможете.
Ключом к шифру было менее всего положительное целое число, произведение цифр которого равняется N.Входные данные: в текстовом файле Z1.dat содержится число N (0<=N<=2147483647) Выходные даны: в текстовый файл Z1.sol записать искомое целое число или 0, если такого числа нет.
Тойсть нужно написать число 21 с клавиатуры и должно выдать 37 без пропуска.
Я пробывал ее сделать но ничего не выходило...
Цитата

var n,x,i:longint;
begin
readln(n);
for i:=2 to n-1 do
  if (n mod i)=0 then x:=i;
writeln(n/x,' ',x);
end.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)