Вроде всё понятно, но не знаю с какого конца к задачке подобраться( Вобщем нашёл в инете такое решение:
Код: Выделить всё
var a, c, n : integer;
b : boolean;
begin
readln(n);
a:=6;
repeat
b:=true;
inc(a);
if a mod n=0 then begin {зачем тут проверять условие, если без него то же самое?}
c:=a;
repeat
if (c mod 10=7)or(c mod 10=0)then c:=c div 10
else begin b:=false; c:=0; end;
until c=0;
end;
until (a mod n =0)and b;
write(a);
readln;
end.
Только единственное, не понял, зачем нужно было условие (см. комментарий в коде). И почему при вводе 9 прога подвисает (догадка: возможно для 9 такого числа просто не существует?) Надеюсь, кто-нибудь подскажет, спасибо!