Một số chương trình cơ bản

Go down

Một số chương trình cơ bản

Bài gửi by [H]Nothing on 2/2/2009, 09:35

Code:
program chao_hoi;
uses crt;
var N:integer;
BEGIN
writeln('xin chao ban! ');
writeln('Si so lop ban la: ');
readln(N);
writeln('Xin chuc mung, ban co ','N-1',' nguoi ban moi');
readln;
END.


Code:
program CH;
uses crt;
var i:longint;
BEGIN
write('hay lua chon mot con so ngau nhien ma ban muon');
readln(i);
if i mod 3 = 0 then write('chao mung ban den voi CLB Lua Xanh ')
else write('Rat tiec , chung toi khong the lam gi');
readln;
END.

_________________


avatar
[H]Nothing
Khách Viếng Thăm
Khách Viếng Thăm

Nam
Đóng góp : : 74
Nhìn thấy mặt trời : 27
thành viên 4rum từ ngày : 16/08/2008

http://nhh.plus.vn/

Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết