Viết chương trình tạo một hình chữ nhật rỗng bằng dấu ‘*’ với chiều dài và chiều rộng được nhập từ bàn phím.
0 bình luận về “Viết chương trình tạo một hình chữ nhật rỗng bằng dấu ‘*’ với chiều dài và chiều rộng được nhập từ bàn phím.”
Var a,b,i,j: longint; Begin Read(a,b); For i:=1 to a do Write(‘* ‘); Writeln; For i:=2 to a do Begin Write(‘*’); For j:=2 to b-1 do Write(‘ ‘); Write(‘*’); Writeln; End; For i:=1 to a do Write(‘* ‘); Readln End.
Var a,b,i,j: longint;
Begin
Read(a,b);
For i:=1 to a do
Write(‘* ‘);
Writeln;
For i:=2 to a do
Begin
Write(‘*’);
For j:=2 to b-1 do Write(‘ ‘);
Write(‘*’);
Writeln;
End;
For i:=1 to a do Write(‘* ‘);
Readln
End.