Ответ:
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Объяснение
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
1.
<span><span><span><span>
10.00
</span></span><span><span>
-3.55
</span></span><span><span>
0.40
</span></span><span><span>
55.00
</span></span><span><span>
</span></span></span></span>
2.
<span><span><span><span>
1.538E-02
</span></span><span><span>
1.255E+02
</span></span><span><span>
4.582E+02
</span></span><span><span>
2.500E+02
</span></span></span></span>
3.
В Паскале
P real
<span>В VBA
</span>Dim P As Variant
<span> </span>
Исходник во вложении.
P.S.Правда не совсем удачная реализация...
Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.
При x = 8, y = 64.