KIEM TRA THUC HANH 1 TIET

[r]

ĐỀ KIỂM TRA TIẾT THỰC HÀNH program in_bang_cuu_chuong;

var i, n, s: integer; uses crt;

begin

clrscr;

write('nhap bang cuu chuong so: '); readln(n);

i:= 0;

while i <= 10 do i:= i + 1;

writeln(i, ' x ',n,' = ',i*n) readln

end.

Câu 1: Sửa lỗi lưu lại tập tin trên.