Hôm qua mình nhầm in các số từ 1 đến 300.Bài sửa lại đã test:
uses crt;
var n,i,j,m,k:integer;
begin
clrscr;
write('Nhap vao mot so n=');
readln(n);
writeln('Cac so nguyen to nho hon ',n,' la:');
for i:=1 to n do
begin
k:=0;
m:=round(sqrt(i));
for j:=1 to m do
if i mod j...
Diễn đàn Trường THPT Đào Duy Từ - Thanh Hóa thành lập từ năm 2001 bởi các cựu học sinh trong trường.
Trường THPT Đào Duy Từ - 33 Lê Quý Đôn, phường Hạc Thành, tỉnh Thanh Hóa.