128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.
Var x,f : real;
begin
write('x='); readln(x);
if x>0 then f:=ln(x)+9 else f:=-x/(x*x-7);
writeln('f(x) = ',f);
<span>end.</span>
Основной текст в Египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(Но выделяли редко -писчий материал был дорогим).
Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Зрение, слух, обоняние, осязание и тактильное восприятие.