Question

 viết chương trình vẽ hình chữ nhật với các kích thước được nhập vào từ bàn phím. Chương trình cho phép người đọc dùng vẽ nhiều hình chữ nhật cho đến khi người dùng không muốn vẽ nữa. Mn giúp em với ạ. Em cảm ơn ạ!!

Answer 1

uses crt;

var a,b,i,j:integer;

    st:string;

begin

clrscr;

repeat

write('Ban muon ve khong:'); readln(st);

if st='Yes' then

   begin

      write('Nhap chieu dai:'); readln(a);

      write('Nhap chieu rong:'); readln(b);

      for i:=1 to a do

        begin

           for j:=1 to b do

             write('*');

           writeln;

        end;

   end

else break;

until st='No'

readln;

end.