การหาค่าผลบวก 1-10 Program for_sum; Uses wincrt; Var K,sum : Integer;
{"Image DocumentName": "\u0e01\u0e32\u0e23\u0e2b\u0e32\u0e04\u0e48\u0e32\u0e1c\u0e25\u0e1a\u0e27\u0e01 1-10 Program for_sum; Uses wincrt; Var K,sum : Integer;", "Image ImageDescription": "Begin. Sum := 0; For K := 1 to 10 Do. Sum:=Sum+K; write(K,\u2019 \u2018); End; Writeln; Writeln(\u2018result sum 1\u202610=\u2019,sum); End. \u0e01\u0e32\u0e23\u0e2b\u0e32\u0e04\u0e48\u0e32\u0e1c\u0e25\u0e1a\u0e27\u0e01 \u0e1c\u0e25\u0e01\u0e32\u0e23\u0e23\u0e31\u0e19\u0e04\u0e37\u0e2d result sum 1\u202610= 55.", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}