bi sayiyi carpanlara ayirma programi kısa ve özprogram carpanlar;
var
x,y,z:integer;
begin
writeln('lutfen islem yapacaginiz sayiyi giriniz');
readln
;
for x:=1 to y-1 do
begin
z:= y mod x;
if z=0 then
writeln(x);
end;
readln;
end.
var
x,y,z:integer;
begin
writeln('lutfen islem yapacaginiz sayiyi giriniz');
readln
;for x:=1 to y-1 do
begin
z:= y mod x;
if z=0 then
writeln(x);
end;
readln;
end.
