Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği

"Delphi" Programlama dilinde "Bir Sayının Rakamlarının Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  sum, number, digit: Integer;
begin
  sum := 0;
  WriteLn('Bir Sayı Girin:');
  ReadLn(number);
  
  while (number <> 0) do
  begin
    digit := number mod 10;
    sum := sum + digit;
    number := number div 10;
  end;
  
  WriteLn('Rakamların Toplamı: ', sum);
  ReadLn;
end.



İlginizi Çekebilir

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Ö ...

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Bir Dizideki Tek Sayıların Adetini Bulma Örneği