does someone here find any mistake in my code?
program primes;
uses
crt;
var
i,j,k,t,m,n:integer;
begin
clrscr;
k:=2;
readln(t);
if t<=10 then
begin
for I:=1 to t do
begin
readln(m,n);
if ((m>=1) and (m<=n) and (n<=1000000000) and (n-m<=100000)) then
begin
for J:=m to n do
begin
while (((j mod k) <> 0) and (k<=j)) do
k:=k+1;
if k=j then
writeln(j);
k:=2;
end;
writeln;
end;
end;
end;
end.
created
last reply
- 6
replies
- 1.1k
views
- 4
users