Advertisement
Guest User

Untitled

a guest
Sep 18th, 2012
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.65 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. Var   f:text;
  9.       p:byte;
  10.        m,n,i,j,k:integer;
  11.        a:array [1..30000]of boolean;
  12. begin
  13.    Assign(f,'input.txt');
  14.    Reset(f);
  15.    Read(f,m,n);
  16.    For i:=1 to n do a[i]:=true;
  17.    a[1]:=false;
  18.    i:=2;
  19.    k:=2;
  20.    j:=1;
  21.    While i*i<=n do
  22.    BEgin
  23.        If a[i]=true then
  24.          While j<=n do
  25.          Begin
  26.            j:=k*i;
  27.            a[j]:=false;
  28.            inc(k);
  29.          End;
  30.        k:=2;
  31.        j:=1;
  32.        inc(i);
  33.     End;
  34.    p:=0;
  35.    For i:=m to n do
  36.      IF a[i]=true then  begin writeln(i);p:=1;end;
  37.    If p=0 then write('Absent');
  38.    close(f);
  39. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement