Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- const
- MAXIN = 1000010;
- var
- n, i, j: integer;
- x, k, a, max, ans, time: int64;
- b, prost1: array [1..MAXIN] of integer;
- function prost(n: integer): boolean;
- var
- i, k: integer;
- begin
- prost := true;
- k := 0;
- for i := 2 to trunc(sqrt(n)) do
- if (n mod i = 0) then
- prost := false;
- end;
- function prost2(a: integer): integer;
- var
- p, i: integer;
- begin
- p := 0;
- for i := 1 to k do
- if (a mod prost1[i] = 0) then
- inc(p);
- prost2 := p;
- end;
- begin
- k := 0;
- for i := 2 to 1024 do
- if (prost(i)) then
- begin
- inc(k);
- prost1[k] := i;
- end;
- readln(n);
- max := 0;
- for i := 1 to n do
- begin
- read(a);
- time := prost2(a);
- if (time > max) then
- begin
- max := time;
- ans := a;
- end;
- end;
- writeln(ans);
- readln;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement