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

08.12.2010, 18:33. **Показов** 10267. **Ответов** 2

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

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

@кот Бегемот · 08.12.2010, 18:50

Сообщение от alexandr_111

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

Pascal

var
n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do
begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
readln;
end.

@MeDVeDb · 05.05.2012, 23:19

А может кто нибудь данную программу решить через функцию или же через процедуру?ребят помогите пожалуйста

alexandr_111
		1
	Найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр 08.12.2010, 18:33. Показов 10267. Ответов 2 Метки нет (Все метки) Найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр(в десятичной системе счисления). Люди пожалуйста кто знает как это делать напишите,я даже представления не имею(((

@MeDVeDb 1 / 1 / 1 Регистрация: 23.04.2012 Сообщений: 13
	05.05.2012, 23:19	3
	А может кто нибудь данную программу решить через функцию или же через процедуру?ребят помогите пожалуйста 0

Опции темы

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

Решение