Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Pola 1

Link Soal

PROGRAM pola1;

VAR

n,a,b : integer;

BEGIN

readln(n);

FOR a:= 1 TO n DO

begin

FOR b := 1 TO (n-a) DO

begin

write(' ');

end;

FOR b := 1 TO a DO

begin

write('*');

end;

writeln;

end;

end.