Viết chương trình tạo một hình chữ nhật rỗng bằng dấu ‘*’ với chiều dài và chiều rộng được nhập từ bàn phím. 30/07/2021 Bởi Quinn Viết chương trình tạo một hình chữ nhật rỗng bằng dấu ‘*’ với chiều dài và chiều rộng được nhập từ bàn phím.
program bt; var m,n,i,j:integer begin write(‘Chieu dai: ‘); readln(n); write(‘Chieu rong: ‘); readln(m) for i:=1 to m do write(‘*’); for i:=2 to n-1 do begin for j:=1 to m do if (j=1) or (j=m) then write(‘*’) else write(‘ ‘); writeln; end; for i:=1 to m do write(‘*’); readln; end. #Chuc_ban_hoc_tot #Vote_minh_5_*_nha #Xin_tlhn Bình luận
program bt;
var
m,n,i,j:integer
begin
write(‘Chieu dai: ‘); readln(n);
write(‘Chieu rong: ‘); readln(m)
for i:=1 to m do write(‘*’);
for i:=2 to n-1 do
begin
for j:=1 to m do if (j=1) or (j=m) then write(‘*’) else write(‘ ‘);
writeln;
end;
for i:=1 to m do write(‘*’);
readln;
end.
#Chuc_ban_hoc_tot
#Vote_minh_5_*_nha
#Xin_tlhn