Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Pola 2

Link Soal

PROGRAM pola2;

VAR

n,a,b,c : integer;

BEGIN

readln(n);

FOR a:= 1 TO n DO

begin

for b:= 1 TO a DO

begin

if c = 10 then c:=0;

write(c);

c := c+1;

end;

writeln;

end;

end.