Olimpiade Sains Kota (OSK) 2012 - Komputer, Nomor 47–48

Perhatikan potongan program berikut:

procedure haha(d:string);
var
  i:integer;
  tmp:string;
begin
  if (length(d)=n) then
    writeln(d)
  else

  for i:=1 to n do
  begin
    str(i,tmp);
    haha(d+tmp);
  end;
end;

catatan :

• length() digunakan untuk menghitung panjang suatu string, contoh : length('TOKI') = 4

• str() digunakan untukmengubah variabel bertipe integer menjadi bertipe string