Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 08.03.2016
Сообщений: 37
1

Определить все цифры в цифровой записи числа, на которые оно делится без остатка

09.03.2016, 22:04. Показов 3481. Ответов 1
Метки нет (Все метки)

Добрый вечер. Помогите, пожалуйста, написать программу.
Дано натуральное четырехзначное число. Определить все цифры в цифровой записи данного числа, на которые оно делится без остатка.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Вывести количество таких цифр, а далее вывести сами цифры в порядке возрастания без повторений.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2016, 22:04
Ответы с готовыми решениями:

Создайте процедуру, печатающую все числа, кроме единицы, на которые без остатка делится число N
Дана задача: Создайте процедуру, печатающую все числа, кроме единицы, на которые без остатка...

Получить все числа, не превышающие заданного числа n, которые делятся без остатка на все свои цифры
получить все числа не превышающие заданного числа n, которые делятся без остатка на все свои цифры.

Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,
Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без...

Для натурального числа n посчитать сумму всех чисел, на которые n делится без остатка
Как и многие другие девочки, Маша любит разные гадания. Некоторое время назад Маша узнала новый...

1
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
10.03.2016, 09:38 2
Лучший ответ Сообщение было отмечено maxcot как решение

Решение

Непонятно только почему именно 4х значное число...
Для любого.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var f:text;
    n,a:integer;
    m:set of byte;
    k,i:byte;
begin
assign(f,'1.txt');
reset(f);
read(f,n);
close(f);
m:=[];
k:=0;
a:=abs(n);
while a>0 do
 begin
  if(a mod 10<>0)and(n mod(a mod 10)=0)then
   begin
    k:=k+1;
    m:=m+[a mod 10];
   end;
  a:=a div 10;
 end;
if k=0 then write('Число ',n,' неделится ни на одну из своих цифр')
else
 begin
  writeln('Количество цифр, на которые делится число ',n,'=',k,' это цифры');
  for i:=1 to 9 do
  if i in m then write(i:2);
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2016, 09:38

Определить для числа ближайшее (сверху), которое делится на 5 и 7 без остатка
Привет, сново я =) Задали вторую задачку, скозали лёгкая, только вот не могу справиться с ней. ...

Определить в массиве произведение элементов чьё значение без остатка делится на 2 и не делится на 3
Уважаемые, помогите пожалуйста закончить или исправить задачу: 1. Ввести одн. массив A из N...

Определить, делится ли произведение на любой из элементов матрицы без остатка
найти произведение элементов, расположенных на побочной диагонали и выше её. Определить,...

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N чётные цифры
Дано целое число N.С помощью операций деления нацело и взятия остатка от деления определить,имеется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.