Tìm kiếm:

Cám ơn các bạn nha !

Function USCNN(a,b:integer):boolean;
begin
repeat
if a>b then a:=a-b
else if b>a then b:=b-a;
until a=b;
USCLN:=a;
end;

Hoặc bạn có thể làm vòng lặp While a<>b cũng OK.

EXP(1/3*LN(a)) = Căn bâạ 3 của a
EXP(i*LN(a)) = a mủ i
Chúc bạn may mắn !

Không phải USES CRT; là xóa màn hình đâu! Mà đó là lệnh gọi một Unit chứa các lệnh xử lí màn hình như CLRSCR(Xóa màn hình);
TEXTCOLOR(TênMàuChữ);
TEXTBACKGROUND(TenMàuNền);...

Mình đang cần một số đề thi tin học không chuyên và học sinh giỏi, bạn nào có thì cho mình với nha ! Cám ơn trước !

Uh, cai nay dung de thin hoc sinh gioi chu lam ji ba.Khong lam duoc thi bao la khong lam duoc.Can ji phai noi nhu the chu ha !

Có bạn nào có Đề thi tin học không chuyên BRVT và các tỉnh khác một số năm trước không ? Cho mình với. cám ơn các bạn trước nha !

[=========> Bổ sung bài viết <=========]

Có nhiều cách làm...

Bác nào có đề thi tin không chuyên các năm trước không cho em với. Cám ơn trước nha. Nếu có đề tin không chuyên BRVT thì càng tốt.

[=========> Bổ sung bài viết <=========]

Em không nghĩ...

Kác bác ạ ! Em nghĩ thế này, làm seo mà gán tcon,tcha:=0 được trong khi tcon và tcha được nhập từ bàn phím mừ. Làm thế là OK rồi !

Chào tăt cả các bạn.Mình là thành viên mới của diễn đàn,rất mong các bạn chỉ giứp.Mình tên Lê Quang Đức, sinh năm 1991, rất mong làm quen với các bạn.Mình yêu thích lập trình Pascal,VB và Design Web...