Viết chương trình xuất ra màn hình bảng cửu chương bất kỳ với số được người dùng nhập từ bàn phím

2 câu trả lời

program bai_giai;

uses crt;

var bcc:longint;

begin

clrscr;

write('nhap bang cua chuong:');readln(bcc);

for i:=1 to n do write(bcc,' * ',i,' = ',bcc*i);

readln

end.

Program CuuChuong;
Uses crt;
Var N,i : integer;
Begin
Clrscr;
Write(‘Nhap so N=’); readln(N);
Writeln;
Writeln(‘Bang nhan’,N);
Writeln;
For i:=1 to 10 do writeln(N,’ x ‘,i:2,’=’,N*i:3);
Readln
End.