viết phương trình in ra màn hình bảng nhân của 1 số từ 1 đến 9 dùng while do và dừng màn hình để có thể quan sát kết quả GIÚP E VS Ạ

0 bình luận về “viết phương trình in ra màn hình bảng nhân của 1 số từ 1 đến 9 dùng while do và dừng màn hình để có thể quan sát kết quả GIÚP E VS Ạ”

1. uses crt;

   var i,n:integer;

   begin

     clrscr;

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

     i:=1;

     writeln(‘Bang cuu chuong cua ‘,n,’ la:’);

     while i < 10 then 

        begin

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

           i := i + 1;

        end;

     readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var i,n:longint;
   begin
           clrscr;
           write(‘Nhap 1 so bat ky: ‘); readln(n);
           writeln(‘  BANG CUU CHUONG ‘,n);
           i:=1;
           while i<=9 do
                   begin
                           writeln(‘   ‘,n,’ * ‘,i,’ = ‘,n*i);
                           i:=i+1;
                   end;
           readln;
   end.

   Bình luận