Программу из комментариев переписал для паскаля.
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
<span>end.</span>
Вообще-то все может передавать, но больше подходит вариант 2. Сообщения и вложенные файлы
Общее количество пикселей: 640*200= 128000
Глубина цвета = Объем видеопамяти(бит)/количество пикселей= (100*1024*8)/128000 = 6,4 бит
Количество цветов определим из формулы: N=2^i, где i - количество бит на пиксель.
N= 2^6= 64
Ответ: 64 цвета
алг
нач
цел t
нц для t от -4 до 10 шаг 1
вывод t," "
кц
кон<span><span><span><span>
</span> </span></span></span>
<span>
(п.с. эта программа выведет все значения цикла)</span>