<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
<u>Пример</u>
15334
2
<span><span>Program f;
</span><span>uses crt;
</span><span>var a:array [1..5] of integer;
</span><span> b,i,h:integer;
</span>begin
<span>clrscr;
</span><span>for i:=1 to 5 do</span><span> begin</span><span> write('vvod ',i,' el mas');
</span><span> readln(a[i]);</span><span>
end;
</span><span>for h:=1 to 25 do
</span><span>for i:=1 to 4 do
</span><span>if (A[i]>A[i+1]) then</span><span>
begin
</span><span> b:=A[i+1];</span><span>
A[i+1]:=A[i];</span><span>
A[i]:=b;
</span><span>end;
</span><span>for i:=1 to 5 do</span><span>write('vivod mas',a[i],' ');
</span><span>readkey;
</span><span>end<span>.</span></span></span>
Ответ:
1) 4 2) 32 3) нет
Объяснение:
1) Переведем 2048 байт в биты
размер изображения
Получаем, что на количество цветов 4 бита, что соответствует 16 цветам
2) 128*128*16= бит
Чтобы получить ответ в Кб, нужно разделить на
Получаем
3) Для 16 цветов нужно 4 бита памяти
Нам нужно памяти 512*512*4= бит
переводим в Кб, т.е. делим на и получаем = 128Кб, нам не хватит исходной видеопамяти