Pascal: Jumlah digit dalam jangkauan

Inilah solusinya, tanpa konversi ke string yang tidak perlu. Ia bekerja dengan mendapatkan digit paling kanan, menambahkan nilainya ke akumulator Total, lalu menghapus digit paling kanan dengan melakukan pembagian bilangan bulat dengan 10, dan mengulangi proses tersebut hingga tidak ada yang tersisa.

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.

Pertanyaan Anda pada dasarnya hanyalah "bagaimana perulangan for dilakukan dalam Pascal"... Periksa saja dokumentasinya, mis. di sini: http://pascal-programming.info/lesson4.php#JUMP3

Aku juga mencium bau pekerjaan rumah. ;)

Mengabaikan komentar sinis tentang Pascal (bahasa ini masih layak digunakan dan berada di jantung Delphi; sintaksisnya telah dipinjam untuk beberapa bahasa 'modern'), pertanyaan ini sebenarnya lebih rumit dari yang diperkirakan. Pertama saya akan tunjukkan programnya, lalu saya jelaskan.

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.

Kuncinya adalah mengubah nomor indeks (i) menjadi string (itulah baris 'inttostr (i)'), lalu mengulangi digit string tersebut dan menjumlahkannya.