Question

Sử dụng câu lệnh làm để viết bảng cửu chương có sử dụng for to do

Answer 1

uses crt;

var i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Bang cuu chuong ',n,' la: ');

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.