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

46 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 Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

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

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği