10 lines
179 B
Text
10 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);
|