program Star;
uses wincrt;
var a, b, c, n : integer;
begin
write('masukkan n :');readln(n);
writeln('*****Gambar Segitiga Terbaliknya*****');
for a:= n downto 1 do
begin
writeln('');
for c:=1 to n-a do
begin
write(' ');
end;
for b:=1 to a do
begin
write ('*');
end;
for b:= a-1 downto 1 do
begin
write ('*');
end;
end;
readln;
end.
0 komentar:
Posting Komentar
Tinggalkan sebuah komentar