9 lines
179 B
Text
9 lines
179 B
Text
EXPORT BabbageProblem()
|
|
BEGIN
|
|
PRINT();
|
|
PRINT("BABBAGE PROBLEM:");
|
|
I := 520;
|
|
WHILE I*I MOD 1000000 ≠ 269696 DO
|
|
I := I + 4;
|
|
END;
|
|
PRINT("Min X = " + I + " con X² = " + I*I);
|