Ответы на вопрос:
var i,n,k,f: integer;
begin
writeln('vvedite n: '); readln(n);
for i: =1 to n do
begin
k: =i; f: =0;
while (k< > 0) do
begin
if (k mod 10> 0)and(i mod (k mod 10)> 0) then f: =1;
k: =k div 10;
end;
if (f=0)and(i mod 10> 0) then write(i,' ');
end;
end.
Популярно: Информатика
-
alexeyy201225.09.2022 06:47
-
kmtva0415.08.2022 08:23
-
alioo07.07.2022 04:10
-
filatevanastya121.05.2020 08:50
-
Юлька115098977654302.03.2023 15:12
-
gaibog04.09.2021 11:47
-
Rokwe17.12.2021 03:32
-
zontikmily23.10.2020 15:14
-
Anton22266622213.11.2022 01:54
-
livanatalya03.12.2021 02:53