Pagini recente » Cod sursa (job #2008919) | Cod sursa (job #2495759) | Cod sursa (job #1990682) | Monitorul de evaluare | Cod sursa (job #6238)
Cod sursa(job #6238)
{%LLD}
{$n+}
program primeee;
var v:extended;
k,i,d,nr,poz,o:longint;
p,j,x:{extended;}LONGINT;
s:string;
W:EXTENDED;
e:INTEGER;
t,l,m:boolean;
f,g:text;
begin
assign(f,'prim.in');assign(g,'prim.out');reset(F);rewrite(G);
read(f,k);j:=3;
i:=i+1;v:=2;
while i<=k do begin
T:=TRUE;
for d:=2 to trunc(sqrt(j)) do begin
{w:=j/d;
if trunc(w)*d=j}
IF J MOD D=0
then begin t:=false;break;end;end;
if t then begin i:=i+1;
{if (j mod 3=0)or (j mod 5=0)or (j mod 7=0) then j:=j+2;
if (j mod 3=0)or (j mod 5=0)or (j mod 7=0) then j:=j+2;
if (j mod 3=0)or (j mod 5=0)or (j mod 7=0) then j:=j+2;
if (j mod 3=0)or (j mod 5=0)or (j mod 7=0) then j:=j+2;
if (j mod 3=0)or (j mod 5=0)or (j mod 7=0) then j:=j+2;}
v:=j;end;
j:=j+2;end;
W:=v*v;
write(g,W:0:0);
close(f);close(g);end.