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
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 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.
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.