Сначала вычисляем x: 8+2*5 = 18, затем 18 делим на 10 и находим остаток, к нему прибавляем 24: 18/10(остаток 8) + 24 = 32. 32 принимает значение y. Дальше 32 просто делим на 10 и прибавляем 3: 32/10 + 3 = 6, 6 принимает значение x. Дальше 6*6-32+6/6 = 5. c = 5.
.........характерные черты?
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
1/16 Кбайта это 64 байта
64 байта это 512 бит
128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.