Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Написать программу вычисления матрицы https://www.cyberforum.ru/ pascalabc/ thread1680975.html
Даны две матрицы А(nxn) и B(nxn). Написать программу вычисления матрицы ,L=√(‖A^2+B^2 ‖ ) где норма ||C|| матрицы С есть max||Ckm|| .
Pascal ABC Function and procedure
Здрас! Добавить в программу по отдельности в 1 процедуру во 2 функцию.:-uses crt; var a: array of integer; i, min: integer; begin a := 1;a := 3;a := 7;a := 1;a := 7;a := 3; ...
Pascal ABC Написать программу, реализующую абсолютно упругое столкновение двух шаров одинаковой массы Написать программу, реализующую абсолютно упругое столкновение двух шаров одинаковой массы, движущихся на встречу друг друг ус одинаковыми скоростями. Массы шаров и скорость задаются пользователем.... https://www.cyberforum.ru/ pascalabc/ thread1680950.html Pascal ABC Отсортировать данный массив и подсчитать количество уникальных чисел в массиве https://www.cyberforum.ru/ pascalabc/ thread1680933.html
Задание: Отсортировать данный массив и подсчитать количество уникальных чисел в массиве. Внимание! Входные данные и выходные данные формировать в виде текстового файла, содержащего целые числа! ...
По диагонали расположить место каждой команды по числу побед за вычетом числа поражений Pascal ABC
ВНИМАНИЕ!!! Входные данные (исходный массив) и выходные данные (отсортированный массив) формировать в виде текстового файла, содержащего целые числа! Задание: Турнирная таблица соревнований...
Pascal ABC Как написать хорошее приложение на ABCObjects? https://www.cyberforum.ru/ pascalabc/ thread1680873.html
Хочу написать крутой редактор на ABCObjects. Это возможно?
Pascal ABC Ошибка компиляции. Вывод суммы кубов от А до B https://www.cyberforum.ru/ pascalabc/ thread1680845.html
В чем ошибка? Что такое ошибка компиляции?
Изобразить два графика с указанием точек пересечения Pascal ABC
Нужно написать программу, изображающую два графика с указанием точек пересечения y=-x^2-5x+6 и y=|x-1| Помогите пожалуйста
Pascal ABC Упорядочить записи массива по значению одного из полей Прога сложная.Сам не справлюсь. Вот задание 1. Создать запись в соответствии с вариантом. Программно присвоить значения всем полям записи. Вывести их на экран. 2. На основе п.1. Создать массив... https://www.cyberforum.ru/ pascalabc/ thread1680326.html Pascal ABC Потоки или одновременное выполнение двух операций https://www.cyberforum.ru/ pascalabc/ thread1680167.html
Задача в GraphABC. Задача: "Нарисовать окружность в центре окна, радиус 10, окно поместить в середину, изменение масштаба в коде" Это элементарно. Также нужно сделать движущийся за мышью шар/круг,...
Алгоритм вычисления произведения и суммы Pascal ABC
пожалуйста нужно написать программу алгоритм вычисления суммы и произведения пример под номером 28
Pascal ABC Подсчет количества бракованных деталей в партии деталей и вывод их номеров https://www.cyberforum.ru/ pascalabc/ thread1679933.html
Помогите, пожалуйста, решить! Буду очень признательна! Составить схему алгоритма и программу подсчета количества бракованных деталей в партии деталей и вывода их номеров. Деталь считается...
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
10.03.2016, 09:38 0

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

10.03.2016, 09:38. Показов 3587. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Определить все цифры в цифровой записи числа, на которые оно делится без остатка Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2016, 09:38
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2016, 09:38

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

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

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

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

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