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

@SergeySergo · Регистрация: 29.11.2013

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

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

@antibenzin · 29.11.2013, 18:39

Pascal

var a,i,n:integer;
    t:boolean;
begin
readln(n);
for i:=1 to n do
begin
a:=i;
t:=true;
while (a<>0)and t do
begin
if a mod 10 = 0 then t:=false else
begin
t:=i mod (a mod 10)=0;
a:=a div 10;
end;
end;
if t then write(i,' ');
end;
end.

@MatMaster · 29.11.2013, 19:25

Лучше через функцию:

Pascal

uses crt;
var n:integer;
function d(n:integer):boolean;
var m:0..9; k:integer;
begin
k:=n;
repeat
m:=k mod 10;
k:=k div 10;
until (k=0) or ((m<>0) and  (n mod m=0));
d:=n mod m=0;
end;
begin
clrscr;
write('Vvedite N: ');
readln(n);
for n:=n downto 1 do if d(n) then write(n,'; ');
readkey;
end.

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

Опции темы

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

Решение