Duongdz2k7

em chuẩn bị thi tin học trẻ à 

Vâng ạ ! Năm nay dịch nó cho thi muộn ! Vẫn chưa thi 

Mà nó thông báo chọn em đi thi trước có 1 tuần nên mới ôn được chút !

 

sửa lại :

program bt1;

uses crt;

var a:integer;

i,n,d1,d2,d3:integer;

function kt(n:integer):boolean;

var a:boolean;

i:integer;

begin

a:=true;

for i:=2 to n-1 do

if n mod i=0 then

a:=a and false;

if n<2 then

kt:=false

else

kt:=a;

end;

begin

clrscr;

write('nhap vao so phan tu cua mang:');

readln(n);

d1:=0;

d2:=0;

d3:=0;

for i:=1 to n do

begin

write('nhap a[',i,']:');

readln(a);

if a mod 2=0 then

d1:=d1+1

else

d2:=d2+1;

if kt(a) then

d3:=d3+1;

end;

write(d1:4,d2:4,d3:4);

readln;

end.

>>Thấy trong phần 'có gì mới ' 

>>là hs chuyên tin chơi theo hệ tối ưu (2k4)

 

hello a nha (anh bằng tuổi chị em haha) !

em 2k7(Lớp 8->9)!

em cx sắp thi tin!

em hiểu rồi !

anh ko sử dụng mảng mà dùng biến thường rồi kiểm tra luôn !

Thk a nha !

Xử lí tại đầu vào sẽ tối ưu hơn

>>tiết kiệm biến mảng a 

Thk bạn góp ý (mặc dù mình cx ko hiểu lắm)  

Mà sao bạn theo dõi mình à sao trích cả hai bài rồi  

bài bạn dài quá 

đây là bài của mình 

rất đơn giản