Для начала мы переведем Iобьем статьи в биты 2мбайта=2048кбайт=2,097,152байт=16,777,216 бит
После этого переводим 2 байта в бит ;2байта=16 бит
Потом нам надо найти какой обьем 1 страницы
Для это надо "строки×символы×каждый символ сколько кодируется"
Iстраница Iст.=32×64×16=32,768 бит
Значит 32,768 бит это 1 страница
Теперь найдем сколько страниц для этого мы Iобьем статьи разделим на 1 страницу
16,777,216÷32,768=512 значит будет 512 страниц
Теперь отнимаем 2 страницы по условию задачи будет 512-2=510 страниц , после этого находим сколько 510 страниц будет в битах т.е
Iобьем статьи после редактирования=510×32,768=16,711,680 бит
А дальше переводим в байты и в кбайты
16,711,680÷8=2,088,960 байт и из байт в кбайты
2,088,960÷1024=2,040 кбайт
Ответ:<span>информационный объём статьи 2,040 Кбайтах после редактирования.
Вот и вся задача</span>
Вот, например, что нашла. 1,2,3 - уже не др.русь, но вдруг надо. а 4,5 рисунок история развития плечевой одежды в др.руси!
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2;
var p:=(x>-4) and (x<5) and (y>-3) and (y<0) or
(y>0) and (y<4) and (Abs(x)<2);
if p then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
Открыть один текстовый файл, нажать на клавиатуре CTRL+A (Правка - Выделить всё), потом нажать CTRL+C (Правка - Копировать). Открыть второй текстовый файл, нажать CRTL+V (Правка - Вставить) и сохранить полученный файл.
var
s : integer;
begin
for var i := 0 to 1000 do if i mod 2 > 0 then s += i;
writeln('s=', s);
end.
var
n : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do write(i, ' ');
end.