Вопрос по информатике:
Найти все натуральные числа, не превышающие заданного числа N, которые делятся без остатка на каждую из своих цифр
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.09.2017 23:14
- Информатика
- remove_red_eye 1056
- thumb_up 6
Ответы и объяснения 1
N,A,d,k:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
Begin
A:=N;
k:=0;
d:=0;
While A>0 do
Begin
k:=k+1;
if A mod 10 0 then
if N mod (A mod 10) = 0 then d:=d+1;
A:=A div 10;
End;
if k = d then WriteLn(N)
End;
End.
- 15.09.2017 19:52
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.