Pascal:
var
i,s:integer;
begin
writeln('Numar:');
readln(s);
for i:=s downto 1 do
if s mod i = 0 then
write(i,' ');
writeln
end.
C++:
#include<iostream>
int main()
{
int N;
std::cin>>N;
for(size_t i=N; i>0; i--)
if(N%i==0)
std::cout<<i<<" ";
return 0;
}
#include <iostream>
using namespace std;
void afisare(int m, int d)
{
if (d==1) cout << " ";
else
{
if (m%d==0)
{
cout << d << " ";
}
afisare(m, d-1);
}
}
int main()
{
int n;
cout << "n="; cin >> n;
cout << "divizorii proprii: ";
afisare(n,n-1);
}
