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

@fredperry1661 · Регистрация: 02.02.2010

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

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

@pikusfikus · 02.02.2010, 18:36

Pascal

function check (n:integer):boolean;
var
x:integer;
begin
x:=n;
check:=true;
while x<>0 do begin
if ((x mod 10)=0) or (n mod (x mod 10)<>0) then
check:=false;
x:=x div 10;
end;
end;
 
 
var
n,i:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
if check(i) then writeln(i);
end.

@Inadequate · 02.02.2010, 18:42

Pascal

function F(N:integer):boolean;
var
  temp:integer;
begin
  temp:=N;
  while temp<>0 do
  begin
    if (temp mod 10 = 0) or (N mod (temp mod 10) <> 0) then
    begin
      F:=false;
      exit
    end;
    temp:=temp div 10
  end;
  F:=true
end;

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

Решение

Решение

@fredperry1661 0 / 0 / 0 Регистрация: 02.02.2010 Сообщений: 12
		1
	Найти все натуральные числа,не превосходящие заданного n, которые делятся на каждую из своих цифр 02.02.2010, 18:31. Показов 5299. Ответов 2 Метки нет (Все метки) помогите сфункцией.....запарился. найти все натуральные числа,не превосходящие заданного n,которые делятся на каждую из своих цифр. 0

	02.02.2010, 18:42