0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program oken;
uses crt;
var n,i,j: byte;
begin
clrscr;
write('Nhap chieu cao cua tam giac: '); readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
2378
1794
uses crt;
var k,i,j:longint;
begin
clrscr;
write('Cao:');readln(k);
for i:=1 to k do
begin
for j:=1 to i do write('*');
writeln;
end;
readln
end.
///////////////////////////////////////
Một số test:
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin