34 lines
576 B
ObjectPascal
34 lines
576 B
ObjectPascal
program antiprimes(output);
|
|
|
|
(* Anti-primes *)
|
|
(* Very slow *)
|
|
var
|
|
counter, max, num, dv, cnt: integer;
|
|
enough: boolean;
|
|
begin
|
|
counter := 0;
|
|
max := 0;
|
|
num := 1;
|
|
enough := false;
|
|
while not enough do
|
|
begin
|
|
cnt := 0;
|
|
dv := 1;
|
|
repeat
|
|
if num mod dv = 0 then
|
|
cnt := cnt + 1;
|
|
dv := dv + 1;
|
|
until dv > num;
|
|
if cnt > max then
|
|
begin
|
|
write(num: 5);
|
|
max := cnt;
|
|
counter := counter + 1;
|
|
if counter >= 20 then
|
|
enough := true;
|
|
end;
|
|
num := num + 1;
|
|
end;
|
|
writeln;
|
|
(* readln; *)
|
|
end.
|