Дано натуральное число N. Найти наибольшее число М (М > 1), на которое сумма цифр в цифровой записи числа N делится без остатка. Если такого числа нет, то вывести слово «нет».
program hundred;
var
s:string;
len,i,num,ost:integer;
begin
write('Введите число ');
read(s);
len:=length(s);
for i:=1 to len do
begin
num:=num+strtoint(s[i]);
end;
for I:=num-1 downto 2 do
if num mod i=0 then
begin
ost:=i;
break;
end;
if ost>0 then writeln('M=',ost) else writeln('Нет');
end.
Теги:
begin,
writeln,
strtoint,
length,
downto,
break,
число,
Введите,
hundred,
string,
integer,
write,
program
Комментарии:
Нету комментариев для вывода...