![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() помогите пожалуйсто, для вас я думаю это труда вообще не составит.
Задача звучит так: Пусть дано число А. Найдите первое простое число которое больше, чем А. (примечание: простое число делится нацело только на себя и на 1) |
#2
|
|||
|
|||
![]() Ну, в тупую так и делай. Циклом от 2 до число -1 проверяешь остаток от деления.
Код:
function CheckSimple(A : Integer) : Boolean; var I : Integer; begin Result := True; For I := 2 To A-1 Do If (A mod I) = 0 Then Begin Result := False; Break; End; end; function FindNextSimple(A : Integer) : Integer; var N : Integer; begin N := A + 1; While Not CheckSimple(N) Do N := N + 1; Result := N; end; Ну и пошли школьники/студенты!!! Своей головой только кушают... |