udah gan, cuman codingannya ribet banget ini :( program capedeh; uses crt; var a,b,c,e:integer; begin clrscr; writeln('masukkan suatu bilangan bulat : ');readln(a); c:=1; b:=1; e:=a; repeat while (b>0) do begin write(c,' '); b:=b-1; end; writeln; c:=c+1; b:=c; a:=a-1; unti...
gan tolong saya gimana buat codingan buat pascal, programnya kayak gini: input=5 output: 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 4 4 4 4 3 3 3 2 2 1
