ปาสคาล: ผลรวมของตัวเลขภายในช่วง

นี่คือวิธีแก้ปัญหา โดยไม่ต้องแปลงเป็นสตริงโดยไม่จำเป็น มันทำงานโดยการหาหลักขวาสุด เพิ่มค่าของมันให้กับตัวสะสม Total จากนั้นลบหลักขวาสุดออกโดยหารจำนวนเต็มด้วย 10 และทำซ้ำขั้นตอนนี้จนกว่าเราจะไม่มีอะไรเหลือ

var
  Value, Digit, Total, NumValues: Integer;
  i: Integer;
begin
  NumValues := 0;

  for i := 1 to 1000 do
  begin
    Value := i;
    Total := 0;

    repeat
      Digit := Value mod 10;
      Total := Total + Digit;
      Value := Value div 10;
    until Value = 0;

    if Total = 6 then
      Inc(NumValues);
  end;

  WriteLn ('I found ', NumValues, ' numbers whose digits add up to six');
  ReadLn;
end.

โดยพื้นฐานแล้วคำถามของคุณเป็นเพียง "for loop ทำอย่างไรใน Pascal" ... เพียงตรวจสอบเอกสารประกอบเช่น ที่นี่: http://pascal-programming.info/lesson4.php#JUMP3

ฉันได้กลิ่นการบ้านด้วย ;)

โดยไม่สนใจความคิดเห็นที่เยาะเย้ยเกี่ยวกับปาสคาล (ยังคงเป็นภาษาที่ใช้งานได้และเป็นหัวใจของเดลฟี ไวยากรณ์ของมันถูกยืมมาสำหรับภาษา 'สมัยใหม่' หลายภาษา) คำถามนี้มีความซับซ้อนมากกว่าที่คิด ก่อนอื่นผมจะแสดงโปรแกรมก่อน แล้วผมจะอธิบาย

var
 i, j, found, total: integer;
 s: string;

begin
 found:= 0;  // how many numbers whose digits add up to six
 for i:= 1 to 1000 do
  begin
   s:= inttostr (i);
   total:= 0;
   for j:= 1 to length (s) do
    total:= total + ord (s[j]) - ord ('0');
   if total = 6 then found:= found + 1;
  end;
 writeln ('I found ', found, ' numbers whose digits add up to six');
 readln
end.

กุญแจสำคัญคือการแปลงหมายเลขดัชนี (i) เป็นสตริง (นั่นคือบรรทัด 'inttostr (i)') จากนั้นวนซ้ำตัวเลขของสตริงแล้วรวมเข้าด้วยกัน