Ответ:
Объём уменьшился в два раза
Объяснение:
2 байта = 16 бит
Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>
Если ещё надо и разберёшь почерк)))
4 * 48 * 64 * 8 бит = 4 * 48 * 64 байт = 12 кбайт
<span>m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒<span> p = 4-m*n = 4-13*5 = -61
var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.
Результат:
-61</span>