Delphi 1'den 100'e Kadar Çift Sayı Toplam Örneği

"Delphi" Programlama dilinde "1'den 100'e Kadar Çift Sayı Toplam Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

program ConsoleApplicationTest;

{$APPTYPE CONSOLE}

var
  toplam, i: Integer;
begin
  toplam := 0;
  for i := 0 to 100 do
  begin
    if i mod 2 = 0 then
      toplam := toplam + i;
  end;
  WriteLn(toplam);
  ReadLn;
end.



İlginizi Çekebilir

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği