skip to main
|
skip to sidebar
Esa Genaku ( Education Science Articles )
Senin, 23 April 2012
Program Bintang;
program bintang;
uses crt;
var
j,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
write('*');
end;
writeln('');
end;
for i:=n-1 downto 1 do
begin
for j:=i downto 1 do
begin
write('*');
end;
writeln('');
end;
readln;
end.
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar