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 câu lệnh while do và dừng màn hình để có thể quan sát kết quả

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 câu lệnh while do và dừng màn hình để có thể quan sát kết quả”

1. program Bai_tap_1;
   uses crt;
   var i,n:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘); 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

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