Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не
превосходящие N и делящиеся на каждую из своих цифр.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Толарис
Пишем программу:
program qq;
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.
Программа написана.
program qq;
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.
Программа написана.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00