Bạn xem lại đề giúp mình nhé. sao lại nhập n rồi xuất kiểu đấy?
à đúng r từ 1 đến n đó bn
giải hộ mk nha
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
