Viết chương trình in ra màn hình hình chữ nhật được phủ kín các kí tự * có chiều dài và chiều rộng được nhập từ bàn phím

2 câu trả lời

đây nha bn

uses crt;

var x, y, i, j : integer;

begin

clrscr;

write('Nhap chieu dai va chieu rong = ');

readln(x, y);

for i := 1 to y do begin

for j := 1 to x do write('*');

writeln; end;

readln

end.