Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Valentin-TT
0 / 0 / 1
Регистрация: 20.04.2015
Сообщений: 89
#1

Дано число n. Найдите такой его делитель d - Pascal ABC

24.01.2017, 15:54. Просмотров 198. Ответов 2
Метки нет (Все метки)

Скажу честно и прямо, сделайте за меня.

Будем говорить, что число a лучше числа b, если сумма цифр a больше суммы цифр числа b, а в случае равенства сумм их цифр, если число a меньше числа b. Например, число 124 лучше числа 123, так как у первого из них сумма цифр равна семи, а у второго — шести. Также, число 3 лучше числа 111, так как у них равны суммы цифр, но первое из них меньше.

Дано число n. Найдите такой его делитель d (само число n и единица считаются делителями числа n), что любой другой делитель c числа n лучше, чем d.

Входные данные

Первая строка входного файла INPUT.TXT содержит целое число n (1 ≤ n ≤ 105000).

Выходные данные

В выходной файл OUTPUT.TXT выведите ответ на задачу.

Примеры

INPUT.TXT

10

OUTPUT.TXT

10

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

INPUT.TXT

239

OUTPUT.TXT

1

P.S. знаю подобное есть в инете, но оно не совсем правильно работает
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.01.2017, 15:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано число n. Найдите такой его делитель d (Pascal ABC):

Дано трехзначное число. Найдите сумму его цифр.
Дело в том, что когда я решила эти задачи, я скинула программы на некий сайт...

Дано целое число. Если оно двухзначное, найдите произведение его цифр, в противном случае напечатайте слова "не могу"
Дано целое число. Если оно двухзначное, найдите произведение его цифр, в...

Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр справа налево
Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при...

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в...

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное...

Пусть дано натуральное число n. Найдите
Добрый вечер, не могу выполнить задание на скрине,

2
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
24.01.2017, 19:06 #2
Лучший ответ Сообщение было отмечено Valentin-TT как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
f:text;
a,d,s,min,i,b,ch:integer;
begin
assign(f,'divisor.in');
reset(f);
readln(f,a);
close(f);
s:=0;
b:=a;
min:=0;
while b>0 do
begin
s:=s+b mod 10;
b:= b div 10;
end;
min:=s;
ch:=a;
s:=0;
for i:=a div 2 downto 1 do
 if a mod i=0 then
 begin
  b:=i;
  while b>0 do
   begin
   s:=s+b mod 10;
   b:= b div 10;
   end;
   if s<min then
   begin
   min:= s;
   ch:=i;
   end;
   s:=0;
  end;
assign(f,'divisor.out');
rewrite(f);
writeln(f,ch);
close(f);
end.

Впрочем, можно было и не городить огород. Очевидно, что решением всегда будет 1 кроме случаев n=10m, тогда ответом будет n


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
f:text;
a,b,ch:integer;
begin
assign(f,'divisor.in');
reset(f);
readln(f,a);
close(f);
b:=a;
while b mod 10=0 do
b:=b div 10;
if b=1 then ch:=a else ch:=1;
assign(f,'divisor.out');
rewrite(f);
writeln(f,ch);
close(f);
end.
2
Valentin-TT
0 / 0 / 1
Регистрация: 20.04.2015
Сообщений: 89
24.01.2017, 19:08  [ТС] #3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2017, 19:08
Привет! Вот еще темы с решениями:

Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево
Помогите написать программу Дано натуральное число. Найти число, получаемое...

Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево
помогите с паскалем. Дано натуральное число. Найти число, получаемое при...

Дано пятизначное число. Найти число, получаемое при прочтении его цифр справа налево
Дано пятизначное число. Найти число, получаемое при прочтении его цифр справа...

Дано натуральное число. Переставить его цифры так, чтобы образовалось наименьшее число, образованное теми же числами.
Дано натуральное число. Переставить его цифры так, чтобы образовалось...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru