với học sinh lớp 8 mà làm như mấy bạn sau thì học sinh càng rối thêm, còn bài đầu tiên của bạn chưa chính xác một số chỗ cần sửa lại. để hoàn chỉnh có thể làm như sau:
<Code>
program snt;
var so, d, i : integer;
begin
d:=0;
write(' Nhap so='); readln(so);
if (so=2) or (so=3) then writeln('So vua nhap la SNT!')
else if (so>3) then
begin
for i:=2 to so div 2 do
if so mod i=0 then inc(d);
if d=0 then writeln('So vua nhap la SNT!')
else writeln('So vua nhap khong la SNT!');
end
else writeln('So vua nhap khong la SNT!');
readln;
end.
</code>
Bookmarks