Source

ProjectEuler / 1 / 1 / 1.nb

Full commit
(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      1974,         68]
NotebookOptionsPosition[      1660,         52]
NotebookOutlinePosition[      2007,         67]
CellTagsIndexPosition[      1964,         64]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"sum", "=", "0"}], ";", " ", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", " ", 
     RowBox[{"i", "<", "1000"}], ",", " ", 
     RowBox[{"i", "++"}], ",", " ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"i", ",", " ", "3"}], "]"}], "\[Equal]", "0"}], "||", 
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"i", ",", " ", "5"}], "]"}], "\[Equal]", "0"}]}], ",", " ", 
       RowBox[{"sum", "+=", "i"}]}], "]"}]}], "]"}], ";", " ", 
   RowBox[{"Print", "[", "sum", "]"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.5284473368664417`*^9, 3.5284474031849604`*^9}, {
  3.5284474581833057`*^9, 3.5284474688484693`*^9}, {3.528447537127018*^9, 
  3.5284476296984396`*^9}, {3.5284477099296722`*^9, 3.528447756465387*^9}}],

Cell[BoxData["233168"], "Print",
 CellChangeTimes->{
  3.528447571590047*^9, {3.528447605170563*^9, 3.5284476161607323`*^9}, {
   3.5284477137372303`*^9, 3.528447757042896*^9}}]
}, Open  ]]
},
WindowSize->{707, 817},
WindowMargins->{{Automatic, 383}, {Automatic, -11}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 885, 22, 52, "Input"],
Cell[1467, 46, 177, 3, 23, "Print"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)