viết chương trình in ra màn hình n số ngẫu nhiên nhỏ hơn hoặc bằng m n,m đc nhập từ bàn phím
2 câu trả lời
uses crt;
var n, m, d, so: longint;
begin
clrscr;
writeln ('ban muon in ra may so bat ki: ');
readln (n);
writeln ('trong pham vi nho hon hoac bang: ');
readln (m);
repeat
randomize;
so:=random(m+1);
writeln (so);
d:=d+1;
until (d=n);
readln;
end.
uses crt;
var n, tg, so, nh: longint;
begin
clrscr;
writeln ('ban muon in ra may so bat ki: ');
readln (n);
writeln ('trong pham vi nho hon hoac bang: ');
readln (nh);
repeat
randomize;
so:=random(nh+1);
writeln (so);
tg:=tg+1;
delay (50);
until tg=n;
readln;
end.
Câu hỏi trong lớp
Xem thêm
