Viết chương trình vẽ hình chữ nhật hình ngôi sao (*) Chiều rộng 4 ngôi sao (****) chiều dài 6 ngôi sao (******)

2 câu trả lời

program bai_giai;
uses crt;
var n,m,i,j:longint;
begin
 clrscr;
  m:=4;
  n:=6;
  for i:=1 to m do
        begin
         for j:=1 to n do if(i=1)or(i=m)or(j=1)or(j=n)then write('* ')else write('  ');
         writeln;
        end;
 readln;
end.