While… Do Viết chương trình in bảng cửu chương từ 1->9

0 bình luận về “While… Do Viết chương trình in bảng cửu chương từ 1->9”

1. program Bang_cuu_chuong; 

   uses crt;

   var n,i: byte;

   Begin

            clrscr;

            for i:=2 to 9 do

            begin

                     writeln(‘Bang nhan ‘,i,’:’);

                     for n:=1 to 10 do writeln(i’, x ,’n’, = ‘,i*n);

                     delay(5000);

            end;

            readln

   End.

   Bình luận

2. Program bcc; 

   Uses crt;

   Var a,b:byte;

   BEGIN

   Clrscr;

   For a:=2 to 9 do

   Begin

   For b:=1 to 10 do Writeln(a’,x’,b’,=’,a*b);

   Delay(1000);

   Writeln;

   End;

   Readln

   End.

   Bình luận