Delphi 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği
"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.