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

216 Okunma Delphi

"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.
Toplam Sayı 100 Çift Mod Delphi

İlginizi Çekebilir

Delphi Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

Delphi Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Ö ...

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği