viết chương trình in ra bảng cửu chương từ 1 đến 10. nhanh giúp mik vs ạ
2 câu trả lời
uses crt;
var x,y,i,j:longint;
begin
clrscr;
for i:=1 to 10 do
for j:=2 to 10 do
begin
write (' ',j,'x',i,'=',i*j,' ');
if j=10 then writeln;
end;
readln;
end.
Program BTT;
Uses crt;
Var i,j: longint;
Begin
Clrscr;
For i:=1 to 10 do
Begin
For j:=1 to 10 do
Writeln(i,' x ',j,' = ',i*j);
Writeln;
End;
Readln
End.