Question

Viết chương trình nhập vào n,m. In ra màn hình n dòng, mỗi dòng có các số từ 1 đến m

Answer 1

var n,m,i,j:integer;

begin

write('m=');readln(m);

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

for i:=1 to n do

begin

for j:=1 to m do

write(j);

writeln;

end;

readln;

end.

Answer 2

var n,m,i,j:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

for i:=1 to n do

begin

for j:=1 to m do

write(j);

writeln;

end;

readln;

end.

Answer 3

mik sưa lại