Question

Rezolvarea va rog, in C++ si Pascal, multumesc.

Answer 1

#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.