Различные windows быстрей и лучше работает.
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>![\displaystyle P= \frac{(x-1)(x-3)(x-5)...(x-63)}{(x-2)(x-4)(x-6)...(x-64)}=\prod_{i=1}^{32} \frac{x-(2i-1)}{x-2i} = \\ \prod_{i=1}^{32} \left(1+\frac{1}{x-2i}\right)](https://tex.z-dn.net/?f=%5Cdisplaystyle+P%3D+%5Cfrac%7B%28x-1%29%28x-3%29%28x-5%29...%28x-63%29%7D%7B%28x-2%29%28x-4%29%28x-6%29...%28x-64%29%7D%3D%5Cprod_%7Bi%3D1%7D%5E%7B32%7D+%5Cfrac%7Bx-%282i-1%29%7D%7Bx-2i%7D+%3D+%5C%5C+%5Cprod_%7Bi%3D1%7D%5E%7B32%7D+%5Cleft%281%2B%5Cfrac%7B1%7D%7Bx-2i%7D%5Cright%29)
var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185
//PascalABC.Net 3.0, сборка 1052
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847
Var
s, si, sm: string;
i, n: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
n := Length(s);
sm := Copy(s, 2, n - 1);
for i := 2 to n do
begin
si := s;
Delete(si, i, 1);
if sm < si then sm := si
end;
Writeln(f, sm);
Close(f)
end.