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

@Black____@ · Регистрация: 06.12.2012

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

помогите пожалуйста решить задачи!!!

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

@CodeR · 07.12.2012, 08:10

Pascal

Var i,j,n,m,t:longint;
    b:boolean;
Begin
    write('Введите разрядность чисел: ');readln(n);
    m:=1;
    For i:=1 to n-1 do
     m:=m*10;
    For i:=m to m*10-1 do
    Begin
      b:=true;j:=i;
      While (j>0)and(b) do
      Begin
        t:=j mod 10;
        if t <> 0 then 
         if i mod t <> 0 then b:=false;
        j:=j div 10;
      End;
      if b then write(i,' ');
    End;
    readln;
End.

@Black____@ 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 3
		1
	Написать программу, которая отыскивает все N-разрядные натуральные числа, которые делятся на каждую из своих цифр 06.12.2012, 22:34. Показов 1528. Ответов 1 Метки нет (Все метки) помогите пожалуйста решить задачи!!! 1. Написать программу, которая отыскивает все N-разрядные натуральные числа, которые делятся на каждую из своих цифр 0

Опции темы

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

Решение