Целочисленная арифметика

[Doublefaced]

Помогите.

Такая вот мудреная тема, а задание такое:

Дано натуральное чиcло N. Найти наибольшее число M (M>1), на которое сумма цифр в цифровой записи числа N делится без остатка. Если такого числа нет, то вывести "нет". Пример. N=12 345, M=5. Сумма цифр числа N, равная 15, делится 5.

С чего начать?
Что использовать?

[Sazary]

Ничего мудреного.
Ищете сумму цифр исходного числа

S := 0;
while N>0 do
 begin
 S := S + N mod 10;
 N := N div 10;
 end;

Затем присваиваете M числа, на которые S делится без остатка, пока не дойдем до S.

i:=1;
M := 1;
while i<S do
 begin
 if S mod i = 0 then M:=i;
 inc(i);
 end;

И все.

[Doublefaced]

Вау! И это всё?
Какие типы у переменных?

[Sazary]

Какие типы у переменных?

Целочисленные. Для N лучше взять longint, чтобы числа подлиннее можно было использовать.
А если сделать N строкой (и потом конвертить и складывать цифры), то вообще хорошо будет. )

[Serge_Bliznykov]

Кстати, коллеги, Вы заметили "дырку" в условии задачи?!!
(Sazary, в Вашем коде Вы её успешно обошли ;-)

Найти наибольшее число M (M>1)

для ЛЮБОГО числа, наибольшее число, на которое оно делится без остатка - ЭТО САМО ЧИСЛО! ;-)

p.s. безусловно, в задаче подразумевается, найти M>1 и не равное самому числу! :-)
Doublefaced, не забудьте в конце проверить, и если вычисленное M равно 1 = выдать сообщение, что "такого числа нет."

[Doublefaced]

Вроде всё написал.
Ничего не происходит.
Напишите пож - та готовую прогу, я даже задание не особо понимаю!

[Serge_Bliznykov]

Вроде всё написал.
Ничего не происходит.

выкладывайте Ваши потуги - посмотрим, что у Вас не работает...

[Doublefaced]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var n:longint;
s,i:integer;
begin

S := 0;
while N>0 do
begin
S := S + N mod 10;
N := N div 10;
end;

i:=1;
M := 1;
while i<S do
begin
if S mod i = 0 then M:=i;
inc(i);
end;

end.

[maladoy]

И что бы вы хотели увидеть в результате работы своей программы? Где вывод на экран результата?

[Doublefaced]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var n:longint;
m,s,i:integer;
begin
write('n=');
readln(n);
S := 0;
while N>0 do
begin
S := S + N mod 10;
N := N div 10;
end;

i:=1;
M := 1;
while i<S do
begin
if S mod i = 0 then M:=i;
inc(i);
end;
writeln('i=',i);
readln(i);
end.
Так верно?