Girilen Sayıları Asal Çarpanlarına Ayıran Program

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

program asalcarpan;
uses wincrt;
var i,k,n:integer;
a:array [1..50] of real;

Begin

clrscr;
writeln;
write('Asal ‡arpanlarna ayrlacak sayy giriniz :');
readln(n);
i:=n;
k:=0;
repeat
i:=i-1;
if n mod i = 0 then
begin
k:=k+1;
a[k]:=n/i;
n:=i;
end;
until i=1;
writeln;
writeln('**** Asal €arpanlar ****');
writeln;
for i:=1 to k do write(a[i]:5:0,' ');
repeat until keypressed;

End.