N - количество цветов в палитре.
i - вес 1 пикселя.
i = Вес всей картинки / на количество пикселей.
120000 байт = 960000 бит
600 * 400 = 240000 пикселей
i = 960000 / 240000 = 4 бит
цветов
Ответ: 16 цветов
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>
<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
Возможно 3 варианта перемещения:
ABCE - длина = 6
ABDE - длина = 7
ABE - длина = 8
Правильный ответ №2: кратчайший путь: ABCE = 6