Pascal.цикл
как решить следующую задачу?
Задача Д1.
Найти все числа, не превосходящие заданного N (10<N<10000), которые делятся на все свои цифры.
Задача Д1.
Найти все числа, не превосходящие заданного N (10<N<10000), которые делятся на все свои цифры.
[highlight=pascal]
for i:=11 to 9999 do
begin
s := IntToStr(i);
for k := 0 to length(s) - 1 do
begin
curres := true;
c := StrToInt(cope(s, k + 1, 1));
if i mod c <> 0 then
begin
curres := false;
break;
end;
end;
if curres then
writeln(c);
end;[/highlight]
алгоритмика у меня на фиговом уровне, а что делать. что вышло, то вышло. надо тестить.
for i:=11 to 9999 do
begin
s := IntToStr(i);
for k := 0 to length(s) - 1 do
begin
curres := true;
c := StrToInt(cope(s, k + 1, 1));
if i mod c <> 0 then
begin
curres := false;
break;
end;
end;
if curres then
writeln(c);
end;[/highlight]
алгоритмика у меня на фиговом уровне, а что делать. что вышло, то вышло. надо тестить.