Снежная королева придумала Каю задание

[ринат Д]

собрать льдинки, у которых число граней, выражающееся не более чем трехзначным числом, делится на каждую из цифр, встречающуюся в записи числа гра¬ней этой льдинки. Когда мальчик соберет все такие льдинки, Снежная королева согласится отпустить его домой. Помоги Каю выбраться из ледяного плена.

[Plague]

Var a,x,i:integer;
L:Boolean;
Begin
For i:=3 to 999 do
Begin
  X:=I;
  L:=true;
  while x>0 do
    Begin
      If x mod 10=0 then l:=false else
      If I mod (x mod 10) <>0 then l:=false;
      X:=x div 10;
    End;
  If l then writeln(I);
End;
End.

[ринат Д]

Снежная королева придумала Каю задание:
собрать льдинки, у которых число граней, выражающееся не более чем трехзначным числом, делится на каждую из цифр, встречающуюся в записи числа гра¬ней этой льдинки. Когда мальчик соберет все такие льдинки, Снежная королева согласится отпустить его домой. Помоги Каю выбраться из ледяного плена.

[Stilet]

А математически это как решается?

[ринат Д]

Я сам не понял ващееее

[Serge_Bliznykov]

ринат Д

как решить такую задачу я рассказывал в этой теме:
ветвление

не обращайте внимание на внешние детали (там нет Кая и снежинок), суть задачи полностью совпадает!

И ещё там цикл до N, а вашем случае цикл будет до 999 (т.к. в условии "число граней, выражающееся не более чем трехзначным числом")

[Katus]

наверное что то типа

...
n:=0;
for i:=4 to 999 do begin
  a1:=i div 100;
  a2:=i div 10 mod 10;
  a3:=i mod 10;
  if (a1<>0)and(a2<>0)and(a3<>0) then
    if (i mod a1 = 0) and (i mod a2 = 0) and (i mod a3 = 0) then begin
      n:=succ(n);
      a[i]:=i;
    end;
  end;
writeln('Число льдинок - ',n);
...

[Serge_Bliznykov]

почти оффтоп...
Katus, а Вы уверены, что это решение задачи про снежинки? У Рината была ещё тема про подбор пароля к сейфу. Это ваше решение (пост #7) ближе к той задаче, имхо...

[ринат Д]

Серега там не понятно что к чему, можешь по подробнее

[Plague]

может уже 2й пост посмотришь там тебе решение написали?