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

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

24.01.2017, 15:54. Просмотров 839. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

2
кот Бегемот
Платежеспособный зверь
8494 / 3930 / 1533
Регистрация: 28.10.2009
Сообщений: 10,203
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
Сообщений: 114
24.01.2017, 19:08  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2017, 19:08

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

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

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


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

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

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