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

207 Okunma Delphi

"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.
Sayı Toplam Döngü Sum Input Delphi

İlginizi Çekebilir

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

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

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği