Girilen Sayının Asal Olup Olmadığını Kontrol Eden Program

Admin Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08

{Girilen sayının asal olup olmadığını kontrol eden program}
program asalmi;
uses wincrt;
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.