Viết chương trình pascal, xuất ra màn hình các số có n chữ số Ví dụ Input 2 Output 10 11 12 13 .. 99

0 bình luận về “Viết chương trình pascal, xuất ra màn hình các số có n chữ số Ví dụ Input 2 Output 10 11 12 13 .. 99”

1. uses crt;
   var n,a,i:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      a:=1;
      for i:=1 to n do a:=a*10;
      for i:=a div 10 to a-1 do write(i,’ ‘);
   readln;
   end.

   Bình luận

2. Uses crt;

    Var d,c,n,i:longint;

   Begin

    clrscr;

    Write(‘n=’);readln(n);

    d:=1;

   For i:=1 to (n-1) do

    begin d:=10*d;

              c:=(d*10)-1;

    end;

   For i:=d to c do writeln(i);

   // Cách mình làm đó là tìm ra giới hạn của đầu và cuối, Giả sử n=4 thì đầu=1000, cuối=9999 

   Bình luận