Cod sursa(job #6244)

Utilizator mariuscris90giuroiu marius mariuscris90 Data 18 ianuarie 2007 16:27:38
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.82 kb
{%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.