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.

Hiç yorum yok:

Yorum Gönder