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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận