blob: bbc46288e2b02b22750656c1a6b236cc8cab9f82 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
MODULE Ch1 EXPORTS Main;
IMPORT SIO;
VAR
A1:ARRAY[0..4] OF CARDINAL := ARRAY OF CARDINAL{12,12,30,24,24};
A2:ARRAY[0..3] OF CARDINAL := ARRAY OF CARDINAL{72,48,24,55};
A3:ARRAY[0..2] OF CARDINAL := ARRAY OF CARDINAL{12,18,24};
PROCEDURE CompleteDay(VAR A:ARRAY OF CARDINAL):CARDINAL =
VAR Count:CARDINAL := 0;
BEGIN
FOR I := FIRST(A) TO LAST(A)-1 DO
FOR J := I+1 TO LAST(A) DO
IF (A[I] + A[J]) MOD 24 = 0 THEN INC(Count) END
END;
END;
RETURN Count
END CompleteDay;
BEGIN
SIO.PutInt(CompleteDay(A1)); SIO.Nl();
SIO.PutInt(CompleteDay(A2)); SIO.Nl();
SIO.PutInt(CompleteDay(A3)); SIO.Nl();
END Ch1.
|
