1)var
R,Pro:Real;
i,N:Integer;
begin
Pro:=1;
Write('Введите N: ');
Readln(N);
for i:=1 to N do
begin
Write('Введите ',i,' число: ');
Readln(R);
Writeln(R-Trunc(R));
Pro:=Pro*(R-Trunc(R));
end;
Writeln(Pro);
end.
2)
var
X,Rez,factorial,pow:Real;
N, i :Integer;
begin
Write('Введите X: ');
Readln(X);
Write('Введите N: ');
Readln(N);
Rez:=1;
pow:=1;
factorial:=1;
For i:=1 to N do
begin
factorial:=factorial*i;
pow:=pow*X;
Rez:=Rez+pow/factorial;
end;
Writeln(Rez);
end.