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

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

program sum_numbers;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s, n, i: Integer;

begin
  s := 0;
  Write('Sayi Girin: ');
  Readln(n);

  for i := 1 to n do
    s := s + i;

  Writeln;
  Writeln('Toplam: ', s);
end.



İlginizi Çekebilir

Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği

Delphi Bir Stringi Ters Çevirmek

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

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

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği