Программа на паскале.

Question

Здравствуйте, помогите пожалуйста написать программу на паскале. 
Определить, есть ли среди натуральных чисел из интервала [ 1, m ) такие, в которых все цифры были кратны заданной пользователем цифре.

Ники Ускова · Accepted Answer

readln(m); //Число 
readln(q); //Заданная цифра 
k:=0; 
for i:=1 to m do begin 
 a:=i; 
 b:=true; 
 while(a>0) do begin 
 if((a mod 10) mod q<>0) then b:=false; 
 a:=a div 10; 
 end; 
 if b then inc(k); 
end; 
writeln(k,' - чисел');