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

@Cheerleader · Регистрация: 09.11.2012

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

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

@Puporev · 09.11.2012, 18:08

Pascal

uses crt;
var n,i,j:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
for i:=1 to n do
 begin
  f:=true;
  j:=i;
  while (j>0)and f do
  if (j mod 10=0)or(i mod (j mod 10)<>0) then f:=false
  else j:=j div 10;
  if f then write(i,' ');
 end;
readln
end.

@Cheerleader · 09.11.2012, 20:36 **[ТС]**

Огромное спасибо!!!

Комментарий модератора

Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

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

Опции темы

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

Решение