}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 02f14717 Описание: Код загружен: 12 июня 2011, 07:21 (Gooddy)

  1. procedure tform1.button2click( sender: tobject );
  2. var
  3. del, val, max: longint;
  4. begin
  5. memo1.clear;
  6. val := spinedit1.value;
  7. max := val;
  8. del := 2;
  9. while ( del <= max ) do
  10. begin
  11. if ( val mod del = 0 ) then
  12. begin
  13. memo1.lines.add( inttostr( del ) );
  14. if ( val div del > del ) then
  15. begin
  16. memo1.lines.add( inttostr( val div del ) );
  17. max := val div del - 1;
  18. end;
  19. end;
  20. del += 1;
  21. end;
  22. end;

Ссылка на данный код:

На главную страницу сервиса обмена кодом »