5.nb

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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1494,         59]
NotebookOptionsPosition[      1138,         41]
NotebookOutlinePosition[      1492,         57]
CellTagsIndexPosition[      1449,         54]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"ans", " ", "=", " ", "1"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", " ", "=", " ", "1"}], ",", 
   RowBox[{"i", " ", "<", " ", "20"}], ",", 
   RowBox[{"++", "i"}], ",", 
   RowBox[{"ans", " ", "=", " ", 
    RowBox[{"LCM", "[", 
     RowBox[{"ans", ",", " ", "i"}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", "ans"}], "Input"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.615587620110641*^9}],

Cell[BoxData["232792560"], "Output",
 CellChangeTimes->{3.6155876201124496`*^9}]
}, Open  ]]
},
WindowSize->{808, 587},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 386, 10, 63, "Input"],
Cell[969, 34, 70, 1, 28, "Output"],
Cell[1042, 37, 80, 1, 86, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)