giả sử em là giáo viên, viết chương trình quay số may mắn nếu trúng số báo danh của bạn nào thì mời bạn có số báo danh đó lên kiểm tra bài cũ (nếu mà cô mình chơi kiểu này chắc tim bay ra khỏi lồng ngực luôn ?_?)
giả sử em là giáo viên, viết chương trình quay số may mắn nếu trúng số báo danh của bạn nào thì mời bạn có số báo danh đó lên kiểm tra bài cũ (nếu mà cô mình chơi kiểu này chắc tim bay ra khỏi lồng ngực luôn ?_?)
program ngau_nhien;
uses crt;
var a: byte;
begin
clrscr;
repeat
randomize;
a:=random(32);
until a>0;
textcolor (lightred); {cho màu đỏ tượng trưng cho ám ảnh}
writeln (‘moi ban co so bao danh so: ‘,a);
readln;
end.
mình làm 30 bn thôi nha !!!
program QSMM;
uses crt;
var n: longint;
begin
clrscr;
repeat
randomize;
n:=random(42);
until n>0;
writeln (‘moi ban co so bao danh so: ‘,n);
readln;
end.