Delphi 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği

33 Okunma Delphi

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

program SumOfEvenNumbers;

uses
  SysUtils;

var
  s, n, i: Integer;
begin
  s := 0;
  Write('Sayi Girin: ');
  ReadLn(n);
  
  if n > 1 then
  begin
    for i := 1 to n do
    begin
      if i mod 2 = 0 then
      begin
        s := s + i;
      end;
    end;
    
    WriteLn;
    WriteLn('Toplam: ' + IntToStr(s));
  end
  else
  begin
    WriteLn;
    WriteLn('Sayi 1''den buyuk olmalidir.');
  end;
end.
Çift Sayı Döngü Toplam Mod Delphi

İlginizi Çekebilir

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

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

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

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

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