Комментарии: Решаем задачи Абрамян на Паскале. Series6

Автор: Bronislav

Bronislav — Tue, 20 Feb 2018 12:51:15 +0000

begin
  var n:=ReadInteger('Введите n:');
  Println('Введите',n,'вещественных чисел:');
  var a:=ReadArrReal(n);
  a.Select(x->frac(x)).Println;
  a.Select(x->frac(x)).Aggregate(1.0,(x,y)->x*y).Println;
end.

begin

var n:=ReadInteger('Введите n:');

Println('Введите',n,'вещественных чисел:');

var a:=ReadArrReal(n);

a.Select(x->frac(x)).Println;

a.Select(x->frac(x)).Aggregate(1.0,(x,y)->x*y).Println;

end.

Автор: Anton

Anton — Thu, 17 Dec 2015 04:45:39 +0000

Поправил:
Было:

Writeln(R-Trunc(R)/1);
Pro:=Pro*(R-Trunc(R));

1 2	Writeln(R-Trunc(R)/1); Pro:=Pro*(R-Trunc(R));

Стало:

Writeln(Frac(R));
Pro:=Pro*(Frac(R));

1 2	Writeln(Frac(R)); Pro:=Pro*(Frac(R));

Автор: olegst1975

olegst1975 — Wed, 16 Dec 2015 10:43:42 +0000

Frac (функция)
Возвращает дробную часть аргумента.
Function Frac(X : Real) : Real;