Đề thi HKI Tin học 8

[Phươngg Trâmm]

[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.

Viết chương trình nhập n số từ bàn phím và đếm xem có bao nhiêu số lẻ ( n > 0 )

Ai đó giúp em đi, maii em thi rồi (

 

[Phươngg Trâmm]

Ai đó ngangg qua giúp emm với ạ T.T

 

[trà nguyễn hữu nghĩa]

Viết chương trình nhập n số từ bàn phím và đếm xem có bao nhiêu số lẻ ( n > 0 )

Ai đó giúp em đi, maii em thi rồi (

Uses crt;
var N,dem,i,a : integer;

BEGIN
clrscr;
dem := 0;
write('Nhap N: ');
Readln(N);
For i := 1 to N do
begin
Readln(a);
if a mod 2 = 1 then dem := dem + 1;
end;
writeln(dem);
readln;
END.

 

[ka1412]

Uses crt;
var N,dem,i,a : integer;

BEGIN
clrscr;
dem := 0;
write('Nhap N: ');
Readln(N);
For i := 1 to N do
begin
Readln(a);
if a mod 2 = 1 then dem := dem + 1;
end;
writeln(dem);
readln;
END.

@trà nguyễn hữu nghĩa Mình nghĩ là a mod 2 <> 0 hoặc (=1) or (-1) vì a có thể <0

 

[trà nguyễn hữu nghĩa]

@trà nguyễn hữu nghĩa Mình nghĩ là a mod 2 <> 0 hoặc (=1) or (-1) vì a có thể <0

Mình không biết là số lẻ có âm không nữa

 

[ka1412]

@trà nguyễn hữu nghĩa Số âm có thể lẻ hay sao ấy.

 

[trà nguyễn hữu nghĩa]

@trà nguyễn hữu nghĩa Số âm có thể lẻ hay sao ấy.

Vậy bạn sửa Code lại giúp bạn ấy nha......mình không chắc là số lẻ có âm không nữa

 

[ka1412]

Uses crt;
var N,dem,i,a : integer;

BEGIN
clrscr;
dem := 0;
write('Nhap N: ');
Readln(N);
For i := 1 to N do
begin
Readln(a);
if a mod 2 <>0 then dem := dem + 1;
end;
writeln(dem);
readln;
END.
P/s: Code giống của bạn @trà nguyễn hữu nghĩa. Mình chỉ sửa lại điểu kiện thôi vì theo mình biết là số âm cũng có tính chẵn lẻ.