Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
LISTNAME
//fpc 3.0.0 program LISTNAME; const fi= 'LISTNAME.INP'; fo= 'LISTNAME.OUT'; max= 300; var k,n,i,j: byte; a: array[1..max] of string; procedure TOHOP; Begin Repeat write('{'); for i:=1 to k-1 do write(a[i],', '); writeln(a[k],'}'); i:=k; while (i>0) and (a[i]=n-k+i) do Dec(i); if i>0 then begin inc(a[i]); for j:=(i+1) to k do a[j]:=a[j-1]+1; end; Until i=0; End; BEGIN assign(input,fi); reset(input); assign(output,fo); rewrite(output); readln(n,k); TOHOP; {chay chuong trinh xu ly to hop} for i:=1 to n do readln(a[i]); close(input); close(output); END.
run
|
edit
|
history
|
help
0
2
VIGENERECIJFER
practica 1 ejercicio 1
busca de string
Pokazivaci, ulancane liste
Пузырькова сортировка
formato_real
Вычисление площади фигуры, ограниченной осью абцисс и функцией
Uji soal 1
4