Được gửi bởi
whatsthecomputer
1 write(cuối bài ) đổi thành writeln;
2 readln thiếu chấm phẩy
Hai lỗi này mình thấy sửa hay ko sửa cũng ko sao , nó ko ảnh hưởng gì đến ct cả,readln ở cuối có " ; " hay ko thì cũng ko sao, còn write với writeln thì chỉ khác ở chỗ là writeln thực hiện xong lệnh rồi tự động xuống duóng tiếp theo, cón write thì ko xuống dòng. Mình thấy 2 lỗi này nó cũng ko ảnh hưởng gì đến ct gì.
CÓ GÌ SAI SÓT MONG CÁC BẠN THÔNG CẢM^^!!
[=========> Bổ sung bài viết <=========]
Được gửi bởi
9xnewmember
1.Nhập 1 số tự nhiên n.Liệt kê các số nguyên tố nhỏ hơn n.
VD: n=13
Các số nguyên tố nhỏ hơn n: 2 ,3 ,5 , 7, 11
Bài 1 mình làm thế này :
Code:
Program bt;
Var i,n,j : integer;
Begin
Write ('Nhap n:');Readln(n);
Write ('Cac so nguyen to nho hon ',n,' la:');
For i:=2 to n-1 do
Begin
j:=2;
While i mod j <>0 then
j:=j+1;
if i=j then
write (i,',');
end;
readln;
End.
CÓ GÌ SAI SÓT MONG CÁC BẠN THÔNG CẢM NHÉ !
Bookmarks