Чтобы закодировать 16 цветов, нужно 4 бита.
Чтобы закодировать 256 цветов, нужно 8 бит.
4 бита это пол байта. 8 бит это 1 байт.
640*480/2 - количество памяти в байтах, требуемое для хранения одной страницы в случае а).
640*480 - количество памяти в байтах, требуемое для хранения одной страницы в случае б).
Чтобы найти искомое количество страниц, нужно выполнить деление
(512*1024) / (640*480/2) для случая а)
(512*1024) / (640*480) для случая б)
Это компьютер или ноутбук
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Ладно смотрите пример во вложении. Проверяйте спрашивайте. Я контроль значения параметра a добавил.
var
m:array [1..10000] of integer;
a,n,i,j:integer;
begin
writeln('Введите n:');
readln(n);
j:=0;
writeln('Введите последовательность чисел:');
for i:=1 to n do
begin
readln(a);
if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;
end;
if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')
else
begin
writeln ('Нечетные числа в данной последовательности:');
for i:=1 to j do
write(m[i],' ');
writeln;
end;
end