langs a-z

Task/100-doors/Pascal/100-doors-1.pascal

@@ -0,0 +1,24 @@
+Program OneHundredDoors;
+
+var
+   doors : Array[1..100] of Boolean;
+   i, j	 : Integer;
+
+begin
+   for i := 1 to 100 do
+      doors[i] := False;
+   for i := 1 to 100 do begin
+      j := i;
+      while j <= 100 do begin
+	 doors[j] := not doors[j];
+	 j := j + i
+      end
+   end;
+   for i := 1 to 100 do begin
+      Write(i, ' ');
+      if doors[i] then
+	 WriteLn('open')
+      else
+	 WriteLn('closed');
+   end
+end.

Task/100-doors/Pascal/100-doors-2.pascal

@@ -0,0 +1,24 @@
+program OneHundredDoors;
+
+{$APPTYPE CONSOLE}
+
+uses
+  math, sysutils;
+
+var
+   AOpendoors  : String;
+   ACloseDoors : String;
+   i	       : Integer;
+
+begin
+   for i := 1 to 100 do
+   begin
+      if (sqrt(i) = floor(sqrt(i))) then
+        AOpenDoors := AOpenDoors + IntToStr(i) + ';'
+      else
+        ACloseDoors := ACloseDoors + IntToStr(i) +';';
+   end;
+
+   WriteLn('Open doors: ' + AOpenDoors);
+   WriteLn('Close doors: ' + ACloseDoors);
+end.