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

Ответы 1

  • Var   N,B:longint;   k:byte;BeginWrite('n = ');ReadLn(n);For n:= 1 to n do    Begin    k:=1;    B:=n;    While B>0 do       Begin       if B mod 10<>0 then          Begin          if n mod (B mod 10) <> 0 then k:=0          End       else k:=0;       B:=B div 10       End;    if k=1 then Write(n,' ')    End;End.
    • Автор:

      ariel30
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years