Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
XEPBAN
//fpc 3.0.0 program XEPBAN; const fi='XEPBAN.INP'; fo='XEPBAN.OUT'; max=200; var x: array[1..max] of string; n,i: byte; procedure xuly; var Begin for i:=1 to n do X[i]:=i; Repeat for i:=1 to n do write(x[i],' '); writeln; i:=n-1; while (i>0) and (x[i]>x[i+1]) do Dec(i); if i>0 then begin k:=n; while x[k]<x[i] do Dec(k); swap(x[k],x[i]); a:= i+1; b:=n; while a<b do begin swap(x[a],x[b]); inc(a); dec(b); end; end; Until i=0; End; BEGIN assign(input,fi); reset(input); assign(output,fo); rewrite(output); readln(n); for i:=1 to n do readln(x[i]); xuly; close(input); close(ouput); END.
run
|
edit
|
history
|
help
0
Matrix
Macintosh HD/Users/aleksej/Downloads/132.docx
Vremenska prognoza
6
11.7.2013 naloga2
Задачи к § 66 «Символьные строки» Задача №112336. Замена a-b в последовательности символов.
222
JHONATAN MARINS DA SILVA 600623806
corza71
ProcedureTest1