Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- Var f:text;
- p:byte;
- m,n,i,j,k:integer;
- a:array [1..30000]of boolean;
- begin
- Assign(f,'input.txt');
- Reset(f);
- Read(f,m,n);
- For i:=1 to n do a[i]:=true;
- a[1]:=false;
- i:=2;
- k:=2;
- j:=1;
- While i*i<=n do
- BEgin
- If a[i]=true then
- While j<=n do
- Begin
- j:=k*i;
- a[j]:=false;
- inc(k);
- End;
- k:=2;
- j:=1;
- inc(i);
- End;
- p:=0;
- For i:=m to n do
- IF a[i]=true then begin writeln(i);p:=1;end;
- If p=0 then write('Absent');
- close(f);
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement