In ra màn hình các số nhỏ hơn 1 số N nào đó

0 bình luận về “In ra màn hình các số nhỏ hơn 1 số N nào đó”

1. program kaito;

   uses crt;

   var i, n: integer;

   begin

      clrscr;

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

      while i<n do

      begin

         writeln(i); inc(i);

      end;

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận

2. uses crt;
   var n,i:longint;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         write(‘Cac so nho hon ‘,n,’: ‘);
         for i:=1 to n-1 do write(i,’ ‘);
         readln;
   end.

   Bình luận