2023-07-01 11:58:00 -04:00
|
|
|
MODULE BabbageProblem;
|
|
|
|
|
IMPORT StdLog;
|
|
|
|
|
|
|
|
|
|
PROCEDURE Do*;
|
|
|
|
|
VAR
|
2026-02-01 16:33:20 -08:00
|
|
|
i: LONGINT;
|
2023-07-01 11:58:00 -04:00
|
|
|
BEGIN
|
2026-02-01 16:33:20 -08:00
|
|
|
i := 2;
|
|
|
|
|
WHILE (i * i MOD 1000000) # 269696 DO
|
|
|
|
|
IF i MOD 10 = 4 THEN INC(i,2) ELSE INC(i,8) END
|
|
|
|
|
END;
|
|
|
|
|
StdLog.Int(i)
|
2023-07-01 11:58:00 -04:00
|
|
|
END Do;
|
|
|
|
|
|
|
|
|
|
END BabbageProblem.
|
