VCT nhập mảng 2 chiều, in ra các hình vuông con kích thước k*k
Giúp mình ngay bây giờ ạ T_T
VCT nhập mảng 2 chiều, in ra các hình vuông con kích thước k*k Giúp mình ngay bây giờ ạ T_T
By Piper
By Piper
VCT nhập mảng 2 chiều, in ra các hình vuông con kích thước k*k
Giúp mình ngay bây giờ ạ T_T
program mang;
var i,j,n: integer;
a: array[1..100,1..100] of char;
begin
write(‘Nhap n: ‘);
readln(n);
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=’*’;
end;
end;
begin
for i:= 1 to n do
begin
for j:= 1 to n do
begin
write(‘ ‘,a[i,j],’ ‘);
end;
writeln;
end;
end;
readln
end.
program mang;
var i,j,n: integer;
a: array[1..100,1..100] of char;
begin
write(‘Nhap n: ‘);
readln(n);
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=’*’;
end;
end;
begin
for i:= 1 to n do
begin
for j:= 1 to n do
begin
write(‘ ‘,a[i,j],’ ‘);
end;
writeln;
end;
end;
readln
end.
xin hay nhất