|
#1
|
|||
|
|||
решить в PascalABC.NET
Помогите решить
|
#2
|
|||
|
|||
Помогите решить
Определите наибольшее простое число, меньшее 10000.
|
#3
|
|||
|
|||
Вычислить точность
помогите пожалуйста
|
#4
|
||||
|
||||
Однотипные темы необходимо объединять, иначе похоже на спам, за что могут последовать санкции...
|
#5
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); const max = 10000; var nums: array [2..max] of Boolean; i, j: Integer; begin for i := 2 to max do nums[i] := True; for i := 2 to max do begin if nums[i] then begin j := i + i; while j <= max do begin nums[j] := False; Inc(j, i); end; end; end; for i := max downto 2 do begin if nums[i] then begin ShowMessageFmt('Число %d является наибольшим простым числом которое не превышает %d', [i, max]); Break; end; end; end; Код:
procedure TForm1.Button2Click(Sender: TObject); const max = 10000; var i, j: Integer; IsPrime: Boolean; begin for i := max downto 3 do begin IsPrime := True; for j := 2 to Trunc(Sqrt(i)) do begin if (i mod j) = 0 then begin IsPrime := False; Break; end; end; if IsPrime then begin ShowMessageFmt('Число %d является наибольшим простым числом которое не превышает %d', [i, max]); Break; end; end; end; Последний раз редактировалось poli-smen, 06.05.2014 в 23:06. Причина: Добавление ссылки |