Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.09.2012
Сообщений: 13
1

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)

28.11.2012, 13:01. Показов 1062. Ответов 1
Метки нет (Все метки)

Помогите составить программу:

Пусть для целого n>0 функция d(n) равна количеству делителей числа n. Дано m>0. Упорядочить все числа n от 1 до m в порядке неубывания значений d(n) Указание: использовать только один массив длиной m.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2012, 13:01
Ответы с готовыми решениями:

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)
Пусть для целого n>0 функция d(n) равна количеству делителей числа n. Дано m>0. Упорядочить все...

Упорядочить все числа n от 1 до m в порядке неубывания значений s(n).
Пусть для целого n>0 функция s(n) равна сумме делителей числа n.Дано m>0.Упорядочить все числа n от...

Упорядочить все числа n от 1 до m в порядке неубывания количества делителей
Написал программу по условию: Пусть для целого n>0 функция d(n) равна количеству делителей числа...

Упорядочить 3 числа в порядке неубывания
#include <iostream> using namespace std; int main() { int a, b, c; cin >> a >> b >> c;...

1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
28.11.2012, 14:50 2
Лучший ответ Сообщение было отмечено ryslan как решение

Решение

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
30
31
32
33
34
35
36
37
uses crt;
function d(n:integer):integer;
var i,k:integer;
begin
if n=1 then k:=1
else
 begin
  k:=2;
  for i:=2 to n div 2 do
  if n mod i=0 then k:=k+1;
 end;
d:=k;
end;
const nmax=400;
var a:array[1..nmax] of integer;
    m,i,j,x:integer;
begin
clrscr;
repeat
write('Ведите целое положительное число до ',nmax,' m=');
readln(m);
until (m>0)and(m<=nmax);
for i:=1 to m do
a[i]:=i;
for i:=1 to m-1 do
for j:=i+1 to m do
if d(a[i])>d(a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Числа от 1 до ',m,' в порядке не убывания числа делителей:');
for i:=1 to m do
write(a[i]:4);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2012, 14:50

Упорядочить три числа в порядке неубывания
Помогите пожалуйста с двумя задачками на FPC: 1)Дано три числа. Упорядочите их в порядке...

Упорядочить все числа n от 1 до m в порядке невозрастания значений s(n)
Пусть для целого n&gt;0 функция s(n) равна сумме цифр числа n. Дано m&gt;0. Упорядочить все числа n от 1...

Выведите все простые множители этого числа в порядке неубывания с учетом кратности (рекурсия)
Дано натуральное число n&gt;1. Выведите все простые множители этого числа в порядке неубывания с...

Упорядочить массив в порядке неубывания
Помогите пожалуйста с заданием(( Дан массив a: array of integer. Упорядочить элементы массива а...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru