viết chương trình pascal in ra 1 hình vuông làm bằng ngôi sao(*)
2 câu trả lời
uses crt;
Var i:integer;
Begin
clrscr;
for i:=1 to 10 do writeln('* * * * * * * * * *');
Readln
End.
\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
var i, j : byte ;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do write('*');
writeln;
end ;
end .