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

Формулировка задачи:

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

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

textual
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.

14   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ