Написать программу в паскале найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
231
242
Ответы на вопрос:
Function check(k : longint) : boolean; var j : byte; begin check: =true; j: =k; while j> 0 do begin if (j mod 10 = 0) or (k mod (j mod 10)< > 0) then check: =false; j: =j div 10; end; end; var n,i : longint; begin readln(n); for i: =1 to n do if check(i) then writeln(i); end.
Популярно: Информатика
-
оkсана0601.05.2021 18:59
-
skillvirex05.01.2021 22:35
-
Just0a0reader24.07.2022 13:46
-
АндрейXXXМ24.10.2021 10:54
-
karenkar10829.08.2021 18:01
-
Lori0409.06.2020 07:27
-
nata0402198003.08.2022 03:34
-
Сверхразимус18.01.2020 22:36
-
Сирунс04.04.2021 13:24
-
sonua318.04.2021 01:02