Все в одной
=ЕСЛИ(A3 < -1; 1/A3; ЕСЛИ(ABS(A3)<=1; 1; EXP(A3-1)))
три отдельно
=ЕСЛИ(A3 < -1; 1/A3; "-")
=ЕСЛИ(ABS(A3)<=1; 1; "-")
=ЕСЛИ(A3> 1;EXP(A3-1); "-")
1580kilobautпо идее должно быть до 1580 килобайтов
<span>0.125
влывлыаываыварпарпапрапр</span>
var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>