Nhập vào một số N và số X,chạy từ 1 đến N và xoá X số bất kì.In ra N-K số còn lại

0 bình luận về “Nhập vào một số N và số X,chạy từ 1 đến N và xoá X số bất kì.In ra N-K số còn lại”

1. uses crt;
   var i,n,x,dem:longint;
   rand:byte;
   begin
       clrscr;
       randomize;
       readln(n,x);
       dem:=0;
       for i:=1 to n do
          begin
              if (n-i)-(x-dem)>=0 then
              if dem<x then
                 begin
                     rand:=random(2);
                     if rand=0 then inc(dem)
                        else writeln(i);
                 end
              else writeln(i);
          end;
   readln;
   end.

   Bình luận