Viết chương trình in ra bảng cửu chương n – Sử dụng while …do ( sử dụng 1 cái đó thui ) – Mình đã hỏi khá nhiều nhưng bạn nào cx chép vừa while vừa

0 bình luận về “Viết chương trình in ra bảng cửu chương n – Sử dụng while …do ( sử dụng 1 cái đó thui ) – Mình đã hỏi khá nhiều nhưng bạn nào cx chép vừa while vừa”

1. program bcc;

   uses crt;

   var n,i: integer;

   begin

       clrscr;

       write(‘Bang cuu chuong: ‘);

       readln(n);

       writeln(‘—————————–‘);

       i:=0;

       while i<=n do

           begin

               writeln(n,’ x ‘,i,’ = ‘,n*i);

               i:=i+1;

           end;

   readln;

   end.

           

       

   Bình luận

2. program ct;

   uses crt;

   var i,n,T:integer;

   begin clrscr;

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

      writeln(‘Bang nhan ‘,n,’ la: ‘);

        T:=1; i:=1;

      while i<=n do

        begin

           T:=T*i; i:=i+1;

           writeln(n,’ x ‘,i:2,’ = ‘T:3);

        end;

   readln;

   end.

   Học tốt!

   Bình luận