From ac0a1ea7dabaee1b986927efb25e94a3a091fff5 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Mon, 13 Feb 2017 10:29:05 +0700 Subject: Update others/volume1 --- others/volume1/044.pas | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 others/volume1/044.pas (limited to 'others/volume1/044.pas') diff --git a/others/volume1/044.pas b/others/volume1/044.pas new file mode 100644 index 0000000..1ac29fe --- /dev/null +++ b/others/volume1/044.pas @@ -0,0 +1,34 @@ +var + n, n0, m, m0, i: int16; + a: array of int16; + b: array of boolean; + +begin + readln(n, m); + n0 := n; + setlength(a, n); + setlength(b, n); + for i := 0 to n - 1 do + b[i] := true; + i := -1; + while n0 > 0 do + begin + m0 := m; + while m0 > 0 do + begin + repeat + if i < n - 1 then + inc(i) + else + i := 0 + until b[i]; + dec(m0) + end; + b[i] := false; + a[n - n0] := i + 1; + dec(n0) + end; + for i in a do + write(i, ' '); + writeln +end. -- cgit 1.4.1