Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
twizeee
0 / 0 / 1
Регистрация: 29.11.2012
Сообщений: 25
1

Делители целого числа

25.12.2012, 16:16. Просмотров 499. Ответов 2
Метки нет (Все метки)

Вывести все делители целого числа в порядке убывания(так же нужно чтобы выводило в порядке убывания и отрицательные числа) помоготе пожалуйста срочно нужно!!!!вот что я написал для положительных и нуля
Pascal
1
2
3
4
5
6
7
8
9
10
Uses crt;
var
N,i:integer;
begin
clrscr;
write('Введите целое число N=');
readln(N);
for i:=N downto 1 do if N mod i=0 then write(i,' ');
if (N=0) then write ('Любые целые числа');
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 16:16
Ответы с готовыми решениями:

Описать функции DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К
Proc30 Описать функци DigitN(K,N) целого типа, возвращающую N-ю цифру...

Строка представляет собой запись целого числа. Составьте программу ее перевода в соответсвующую величину целого типа.
Помогите сделать задание: Строка представляет собой запись целого числа....

Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей.
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p,...

Вывести на экран в столбец все делители данного числа и количество делителей для каждого числа
Ввести последовательно n произвольных целых чисел, вывести на экран в столбец...

Делители числа
Выведите все натуральные делители числа x в порядке возрастания (включая 1 и...

2
Germanant
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 975
Завершенные тесты: 2
25.12.2012, 17:36 2
Для отрицательных тотже цик for i:=1 to N do тоже условие и вывод Writel(-i,' ');
0
twizeee
0 / 0 / 1
Регистрация: 29.11.2012
Сообщений: 25
25.12.2012, 23:05  [ТС] 3
вообщем я разобрался уже
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses crt;
var
N,i:integer;
begin
clrscr;
write('Введите целое число N=');
readln(N);
      if n>0 then    begin
                     for i:=N downto 1 do if N mod i=0 then write(i,' ');
                     End
Else  if n<0 then        begin
                         for i:=1 to -n do if N mod i=0 then write(-i,' ');
                         End;
      if (N=0) then write ('Любые целые числа');
end.
все норм работает и с отрицательными
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 23:05

Делители числа
Найти все делители натурального числа n. не через массив

Вычисление суммы цифр целого числа (нахождение суммы цифр целого числа)
Составить и отладить программу, используя указанные в скобках процедуры или...

Делители натурального числа.
спасибо мольшое!вот ёще одана: Составить функцию для нахождения наименьшего...


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

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

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