Pages

Sabtu, 13 Oktober 2012

BAB 1C : Perulangan - Pola 1

Solusi BAB 1C : Perulangan - Pola 1



program pola1;
var N,i,j,k : integer;
begin
read(N);
for i:=1 to N do begin
for j:=1 to N-i do write(' ');
for k:=1 to i do write('*');
writeln;
end;
readln;
readln end.

1 komentar:

  1. Thank's Your programming is so helpful. BUt i want to give hope for you. You give a small discussion or comment.

    Regards
    Awan12

    BalasHapus