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

87 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 Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

Delphi Bir Stringi Ters Çevirmek

Delphi Bir Sayının Faktöriyelini Bulma Örneği

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

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği