asal sayı programı etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
asal sayı programı etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

18 Ekim 2009 Pazar

Pascalda Aralarınad Asal Sayı Programı, Pascalda Asal Sayı Programı

program aralarinda_asal;
uses crt;
var
   i,k,a,b,tb:longint;
begin
     clrscr;
     write('BIRINCI SAYIYI GIRINIZ...:');readln(a);
     write(' IKINCI SAYIYI GIRINIZ...:');readln(b);
     for i:=2 to 10 do
     begin
          if (a mod i = 0) and (b mod i = 0) then
          tb:=tb+1;
     end;
     if tb = 0 then write('SAYILAR ARASINDA ASALDIR..!')
     else if tb<>0 then
     begin
     write('ARALARINDA ASAL DEGILDIR..!');
     end;
readln;
end.