pascalda sayının tam bölenlerini bulma etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
pascalda sayının tam bölenlerini bulma etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

18 Ekim 2009 Pazar

Pascalda Sayının Tam Bölenlerini Bulma, Pascal Tam Bölen Programı

program tam_bolenler;
uses crt;
var
   X,Y:longint;
begin
     clrscr;
     write('A SAYISINI GIRINIZ...:');readln(Y);
     for X := 1 to Y do
 begin
      if (Y mod X = 0) then
      writeln(X);
 end;
readln;
end.