[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Do bạn không đóng end; ở vòng lặp đầu tiên nên nó đang tính cả đoạn tiếp theo trong vòng lặp đấy đó =)))
sau readln cuối cùng thì có hay không có dấu chấm phẩy cũng không sao đâu nhé bạn =)
Thử qua với bài này đi bạn rồi bạn sẽ biết thôi
uses crt;
var a:array[1..100] of integer;
n,i,k:integer;
function snt(q:integer):boolean;
var w:integer;
begin
snt := true;
if q<=1 then snt:=false;
if q>=2 then
for w:=2 to trunc(sqrt(q)) do
if q mod w=0 then snt:=false;
end;
begin
clrscr;
k := 0;
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']:');readln(a[i]);
end;
for i := 1 to n do if snt(a[i])=true then inc(k);
write('So so nguyen to trong mang la:',k);
readln
end.báo lỗiThử qua với bài này đi bạn rồi bạn sẽ biết thôi
bài nào mình chả viết readln cuối cùng không dấu chấm phẩy =)))Mã:uses crt; var a:array[1..100] of integer; n,i,k:integer; function snt(q:integer):boolean; var w:integer; begin snt := true; if q<=1 then snt:=false; if q>=2 then for w:=2 to trunc(sqrt(q)) do if q mod w=0 then snt:=false; end; begin clrscr; k := 0; write('Nhap n:');readln(n); for i:=1 to n do begin write('a[',i,']:');readln(a[i]); end; for i := 1 to n do if snt(a[i])=true then inc(k); write('So so nguyen to trong mang la:',k); readln end.
Lỗi ở đâu hả bạn? Bạn cap thử lỗi cho mình xem xem nào?
