Program_pola_bintang_turun;
uses wincrt;
var
i,n,j:integer;
begin readln (n);
for i:=1 to n do
begin for j:=1 to n do
begin if (j i)
then write (' ')
else write ('*');
end;
writeln;
end;
end.
12.05.2011
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar