#### Euler Problem 80:

Prosto rješenje pomoću Mathematica:

sum = 0; i = 0; While[True, If[i > 100, Break[]]; sqrt = Sqrt[i]; If[sqrt != IntegerPart[sqrt], sum = sum + Total[RealDigits[N[sqrt, 150], 10, 100][[1]]]; ]; i++; ]; sum

Advertisements

Prosto rješenje pomoću Mathematica:

sum = 0; i = 0; While[True, If[i > 100, Break[]]; sqrt = Sqrt[i]; If[sqrt != IntegerPart[sqrt], sum = sum + Total[RealDigits[N[sqrt, 150], 10, 100][[1]]]; ]; i++; ]; sum

Advertisements