Найти все натуральные числа, не превышающие заданного N, которые делятся на каждую из своих цифр

@anywasp · Регистрация: 19.10.2014

Студворк — интернет-сервис помощи студентам

Ребята, помогите, пожалуйста.
Нужно найти все натуральные числа (количество), не превышающие заданного N, которые делятся на каждую из своих цифр.

Я пыталась, но не работает

Pascal

program dobra_cisla;
const max=100000;
var A:array [1..max] of integer;
    n,i,j,m,k,pocet,y,r,z,x:integer;
begin
  read(n); j:=1;
  Y := 0;  x:=0;
  for i:=1 to n do
  begin
  if i<10 then pocet:=pocet+1;
  if (i>10)and (i<=12) then pocet:=pocet+1
  else
   begin
   z:=i; j:=1;
    repeat
     Y := z mod 10;
     X := i div 10;
     z:=x;
     A[j]:=y;
     inc(j);
    until a[j-1]=z;
   m:=j-1;
   r:=0;
   For k:=1 to m do
   if (A[k]<>0)and(i mod A[k]= 0) then r:=r+1
   else r:= r - k;
   if r>=2 then pocet:=pocet+1;
   end;
end;
  writeln(pocet);
end.

@JokeR.BY · 26.10.2014, 00:30

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.10.2014, 00:30	2
	Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр 1

Опции темы