Girilen Sayının Asal Olup Olmadığını Bulan Program. Klavyeden sayı girmemizi ister.Girdiğimiz sayı asal ise "Sayı Asaldır" mesajını verir.Girdiğimiz sayı asal değilse "Sayı Asal Değil" mesajını verir.Biz ne zaman "ESC" tuşuna basarsak program o zaman biter.Uses Crt;
var
sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write('Sayı Giriniz...:');Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln('Sayı Asaldır');
if j<>2 then writeln('Sayı Asal Değildir.');
readln;
clrscr;
j=0;
until keypressed=27;
end.
var
sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write('Sayı Giriniz...:');Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln('Sayı Asaldır');
if j<>2 then writeln('Sayı Asal Değildir.');
readln;
clrscr;
j=0;
until keypressed=27;
end.
