Чтобы закодировать 16 цветов, нужно 4 бита.
Чтобы закодировать 256 цветов, нужно 8 бит.
4 бита это пол байта. 8 бит это 1 байт.
640*480/2 - количество памяти в байтах, требуемое для хранения одной страницы в случае а).
640*480 - количество памяти в байтах, требуемое для хранения одной страницы в случае б).
Чтобы найти искомое количество страниц, нужно выполнить деление
(512*1024) / (640*480/2) для случая а)
(512*1024) / (640*480) для случая б)
...
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
<span>a = int(input('Введите кг яблок:'))
b = int(input('Введите цену этих кг:'))
k = int(input('Введите имеющиеся кг:'))
print(k/a*b)</span>