#include <iostream>
using namespace std;
int main()
{
int k;
long double n,f;
cout<<"Dati Numarul: ";
cin >> n;
k=0;
f=0;
k=n;
f=n-k;
cout<<"Partea fractionala:="<<f<<endl; system("pause");
return 0;
}
In Pascal;
Program Frac;
var i,r : integer;
n,k : real;
begin
writeln('Dati Numarul');
readln(n);
if n>0 then
begin
r:=Trunc(n);
k:=n-r;
writeln('Partea fractionala:=',k:0:5);
end
else
begin
r:=Trunc(n);
k:=(n-r)*(-1);
writeln('Partea fractionala:=',k:0:5);
end;
readln;
end.
