viết chương trình vẽ hình chữ nhật có chiều dài, chiều rộng nhập từ bàn phím , cd,cr<100 . help me
(thuộc chương trình tin 11 phần cấu trúc lặp nha)
chương trình pas nha
program oken; uses crt; var cd,cr,j,i: byte; begin clrscr; write('Nhap chieu dai: '); readln(cd); write('Nhap chieu rong: '); readln(cr); for i:=1 to cr do begin for j:=1 to cd do write('*'); writeln; end; readln; end.
Program NhatNgu; Uses crt; Var cd,cr,i,j: byte; Begin Clrscr; Write('Nhap chieu dai: '); Readln(cd); Write('Nhap chieu rong: '); Readln(cr); For i:=1 to cr do Begin For j:=1 to cd do Write('*'); Writeln; End; Readln End.