<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
Если на паскале, то как-то так:
function ToNine(number : integer) : integer;
const
sist = 9;
var
res, umn : integer;
begin
res := 0;
umn := 1;
while number > 0 do
begin
res := (number mod sist) * umn + res;
number := number div sist;
umn := umn * 10;
end;
ToNine := res;
end;
var
i : integer;
begin
for i := 1 to 8 do
writeln(i, ' + ', i, ' = ', ToNine(i + i));
for i := 1 to 8 do
writeln(i, ' * ', i, ' = ', ToNine(i * i));
<span>end.</span>
1) 2^15< 65 000 <2^16 ---> 16=2^4 - бит для кодирования одного цвета
2) 2048*1024 = 2^11 *2^10=2^21 - количество пикселей
3) 2^4 * 2^21 =2^25 (бит) =2^22 (байт) =2^12(Кбайт) =2^2 (Мбайт)=4 Мбайт
SELECT * FROM "Зоопарк" WHERE "количестве пищи в день" BETWEEN 5 and 10