|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.01.2012, 17:16 | #1 |
Пользователь
Регистрация: 08.01.2011
Сообщений: 33
|
Нахождение произведения составных делителей числа
В чем проблема, кто может подсказать, вроде бы все должно работать верно. Что-то на поверхности, но я не могу этого уловить нивкакую ....
Алгоритм должен находить проиведение составных делителей числа. С ума уже схожу, что не так... Кто может пожалуйста покажите в чем проблема procedure delit_pro(var m,pro:integer); var delit,i,kol:integer; flag:boolean; begin flag:=true; delit:=2; for i:=2 to m-1 do if m mod i=0 then begin kol:=kol+1; while flag and (delit<=i div 2) do if i mod delit=0 then begin flag:=false; pro:=pro*i; end else delit:=delit+1; end; if kol=0 then pro:=0; end; Прошу подправьте, я уже вымотался весь.... |
19.01.2012, 19:08 | #2 |
Пользователь
Регистрация: 12.11.2009
Сообщений: 20
|
Слегка упростив ваш код:
Код:
|
19.01.2012, 21:36 | #3 |
Пользователь
Регистрация: 08.01.2011
Сообщений: 33
|
хм, результат произведения составных делителей 8 выходит по этому алгоритму 64 хотя если не считая крайние значения числа, там лишь один составной делитель получается 4... Однако спасибо огромное за отзывчивость
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определение простых и составных делителей! | Alexbmgn | Помощь студентам | 5 | 22.11.2011 07:26 |
найти сумму всех делителей числа (С++) | yula92 | Помощь студентам | 13 | 19.05.2010 00:02 |
Паскаль.Программирование задач нахождение суммы и произведения | Яська | Помощь студентам | 1 | 07.12.2009 18:16 |
Программирование задач нахождение суммы и произведения | Яська | Помощь студентам | 1 | 29.11.2009 11:12 |
нахождение произведения в массиве | Sonyalex90 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 11.10.2009 13:08 |