làm 1 bảng chia trong pascal

0 bình luận về “làm 1 bảng chia trong pascal”

1. program bang_chia;

   uses crt;

   var n,i:byte;

   begin

          clrscr;

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

          for i:=1 to 10 do

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

          readln;

   end.

   Bình luận