<span>непрерывно изменяющийся во времени</span>
16МБ=128000000бит
4мин=240сек
128000000:240примерно 533333бит/с
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
#include <iostream>
int main()
{
double x, R = 1;
std::cin >> x;
int i = 1;
do
{
R = (x - i - 1) / (x - i) * R;
++++i;
}
while (i != 63);
std::cout << R;
}<span>
</span>