Soru 17: Girilen sayının asal olup olmadığını kontrol eden program

 

{Girilen sayının asal olup olmadığını kontrol eden program}

program asalmi;

uses crt;

var

  sayi,i,tam,onda:integer;

begin

  clrscr;

  write('Kontrol edilecek sayıyı giriniz :');

  readln(sayi);

  for i:=1 to sayi do

    if (sayi/i)=int(sayi/i) then tam:=tam+1

                            else onda:=onda+1;

  if tam>2 then writeln('Sayı asal değildir')

         else writeln('Sayı asaldır');

  readkey;

end.