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

186 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 Dizideki Bir Elemanı Döngü İle Arama Örneği

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

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

Delphi Bir Stringi Ters Çevirmek

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...