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

53 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 Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

Delphi Sayıların Geometrik Ortalamasını Bulma Örneği

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

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

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