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

196 Okunma Delphi

"Delphi" Programlama dilinde "1'den 100'e Kadar Asal Sayı Toplamı Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

program ConsoleApplicationTest;

var
  toplam, i, j: Integer;
  asal: Boolean;

begin
  toplam := 0;
  asal := true;

  for i := 2 to 99 do begin
    for j := 2 to i - 1 do begin
      if (i <> j) and (i mod j = 0) then begin
        asal := false;
        Break;
      end;
    end;

    if asal then begin
      toplam := toplam + i;
    end;

    asal := true;
  end;

  WriteLn(toplam);
  ReadLn;
end.
Sayı Asal Toplam 100 Döngü Delphi

İlginizi Çekebilir

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

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

Delphi Dikdörtgenin Alanını Hesaplama Örneği

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

Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği