Update /r/dailyprogrammer challenge #285 [Easy]

1 files changed, 22 insertions, 0 deletions

diff --git a/daily/285easy/2enc.pas b/daily/285easy/2enc.pas
new file mode 100644
index 0000000..96e58c5
--- /dev/null
+++ b/daily/285easy/2enc.pas
@@ -0,0 +1,22 @@
+var
+  fi, fo: text;
+  n, i: cardinal;
+
+
+begin
+  assign(fi, 'part2.inp');
+  assign(fo, 'part2.out');
+  reset(fi);
+  rewrite(fo);
+  repeat
+    repeat
+      read(fi, n);
+      for i := 1 to n div 255 do
+        write(fo, 255, ' ');
+      write(fo, n mod 255, ' ')
+    until eoln(fi);
+    writeln(fo)
+  until eof(fi);
+  close(fi);
+  close(fo)
+end.