Я так полагаю вы про оптимизацию.
Ответ:32 байта
Объяснение:
8 бит =1 байт,
У тебя здесь 32 символа, вес каждого равен 8 бит.
8*32/8=32, где первая 8 это вес одного символа, вторая восьмерка это что бы 8 бит превратились в 1 байт
Write (ndivm +1)
Если не поймете - прокомментирую
Const e=0.001;
var x,a,s:real; n,st,f:integer;
begin
write('x = ');
readln(x);
st:=1; f:=1; a:=x; s:=x; n:=0;
while abs(a)>e do
begin
n:=n+1;
st:=st*2;
f:=f*n;
a:=x*st/f;
s:=s+a;
end;
writeln('s = ',s:5:3);
end.
Пример:
<span>x = 1.5
s = 11.083</span>
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.