dùng câu lênh for...do viết chương trình vẽ liên tiếp 3 tam giác đều. MỌI NGƯỜI GIÚP EM VỚI Ạ!

2 câu trả lời

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 3 do

begin

writeln('        *   ');

writeln('     * * *  ');

writeln('  * * * * * ');

writeln('* * * * * * *');

end;

readln

end.

Program Hotboy ;

Uses crt;

Var i:byte;

Begin

Clrscr;

For i:=1 to 3 do

Begin

Writeln(' * ');

Writeln(' * *  ');

Writeln(' * * *  ');

End;

Readln

End.

Câu hỏi trong lớp Xem thêm