Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.86
Роза
32 / 32 / 0
Регистрация: 25.05.2010
Сообщений: 80
#1

Вывести все делители заданного натурального числа. - Delphi

21.01.2011, 17:19. Просмотров 1943. Ответов 4
Метки нет (Все метки)

Вывести все делители заданного натурального числа.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2011, 17:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести все делители заданного натурального числа. (Delphi):

Найти все делители натурального числа N - Delphi
Найти все делители натурального числа N.

Получить все делители данного натурального числа, найти сумму делителей - Delphi
Дано натуральное число получить все его делители, найти сумму его делителей

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n. - Delphi
Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n.

Для введенного натурального числа N получить все его натуральные и вывести их в компонент TMemo - Delphi
задание Для введенного натурального числа N получить все его натуральные и вывести их в компонент Tmemo. Длянахождения делителей...

Найти все делители числа. - Delphi
Требуется простой быстродействующий алгоритм для нахождения всех делителей числа N, т.е. прямой перебор от 1 до N и проверка (n mod i)=0 не...

Найти сумму цифр заданного натурального числа - Delphi
Найти сумму цифр заданного натурального числа Заранее благодарен, программу, пожалуйста, в ДЕЛФИ напишите, а то уже завтра зачет по...

4
Mad_Dog
Фрилансер
449 / 430 / 27
Регистрация: 01.06.2010
Сообщений: 1,315
21.01.2011, 17:39 #2
Delphi
1
2
3
readln(N);
for j:=2 to N do
  if N mod j = 0 then write(j: 5);
оформи в консольном режиме...
1
Роза
32 / 32 / 0
Регистрация: 25.05.2010
Сообщений: 80
21.01.2011, 17:55  [ТС] #3
а что значит:
Delphi
1
write(j: 5);
?
0
ybn
26 / 26 / 1
Регистрация: 27.09.2010
Сообщений: 59
21.01.2011, 18:00 #4
Mad_Dog Правильно написал, но проще было бы
Код
 Write (j,' ');
или
Delphi
1
WriteLn (j)
- Вывод на экран!
1
Mad_Dog
Фрилансер
449 / 430 / 27
Регистрация: 01.06.2010
Сообщений: 1,315
21.01.2011, 18:04 #5
Цитата Сообщение от Роза Посмотреть сообщение
а что значит:
Delphi
1
write(j: 5);
?
форматированный вывод на экран...
1
21.01.2011, 18:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2011, 18:04
Привет! Вот еще темы с ответами:

Найти сумму цифр заданного натурального числа - Delphi
найти сумму цифр заданного натурального числа. Помогите пожалуйста

Получить все делители числа Q, взаимно простые с P - Delphi
Даны целые числа P и Q. Разработать алгоритм и программу получения всех делителей числа Q, взаимно простых с P.

Определить, является ли чётной сумма цифр заданного трёхзначного натурального числа - Delphi
Составить программу, которая определяет, является ли чётной сумма цифр заданного трёхзначного натурального числа.Delphi

В интервале чисел натурального ряда от a до b найти все двузначные числа, в записи которых все цифры различны - Delphi
В интервале чисел натурального ряда от a до b найти и вывести в поле метки Label все двузначные числа, в записи которых все цифры...


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

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

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