• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фаззинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь. Мобильный клиент для IOS находится в itunes по этой ссылке

Mod

  • Автор темы Yermek
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Y

Yermek

#1
Помогите решить задачу
Например
Вводим любое число и нажимаем кнопку
и она высчитывает на сколько она делится
20 делиться на 1,2,4,5,10,20
 
N

niello

#2
Можно сделать простым перебором
//num:=20;
for i:=1 to Num do
begin
if (num MOD i)= 0 then Write(i);//проверяем если нет остачит выводим

end;
Также можна организовать совершенно другой вывод в Мемо например, и счетчик - их колличество ;-)
Код должен пахать(тока не вздумай так выводить если не создал консоль;-) )

чуть не забыл начинай перебор с 1!!! а то если с 0 комп тебе не выдаст БЕСКОНЕЧНОСТЬ! И можна код оптимизировать если начинать перебор с 2 и до Num-1(Главное не забыть их вывести)
 
A

ApeX

#3
И можна код оптимизировать если начинать перебор с 2 и до Num-1(Главное не забыть их вывести)
Мне кажется достаточно будет вести перебор с 2 и до (Num div 2) и не забыть вывести 1 и Num.
 
Статус
Закрыто для дальнейших ответов.
Вверх Снизу