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ả

2 câu trả lời

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.

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.

Câu hỏi trong lớp Xem thêm