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

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

Delphi Dört İşlem Yapan Örnek

Delphi Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Ör ...

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

Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma