Viết chương trình để In ra màn hình các số từ 1 tới n bằng câu lệnh while do.Pascal

0 bình luận về “Viết chương trình để In ra màn hình các số từ 1 tới n bằng câu lệnh while do.Pascal”

1. var n,i: byte;

   begin

       write(‘Nhap n: ‘); readln(n);

       i := 1;

       while i<=n do

         begin

             write(i,’ ‘);

          inc(i);

      end;

     readln;

   end.

   Bình luận

2. uses crt;
   var i,n : integer;
   begin clrscr;
   write(‘Nhap n :’); readln(n);
   i:=0;
   while i<n do begin
   i:=i+1;
   write(i:3); end;
   readln
   end.

   Bình luận