<span>Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);</span><span>i:=1;
repeat</span><span>val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;</span><span>until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(6,i->(i+10)**3).Println
end.
<u>Результат</u>
1000 1331 1728 2197 2744 3375
Высчитаем количество пикселей в изображении:
128x128 = 16384
Высчитаем количество бит в 2 КБ:
2x1024x8 = 16384
Посчитаем количество бит на пиксель. Для этого поделим количество бит в изображении на количество пикселей:
16384 / 16384 = 1
Посчитаем глубину цвета:
2¹ = 2
Ответ: В изображении может быть максимум 2 цвета.
1. Конъюнкция
2. Дизъюнкция
3. Инверсия
4. Импликация
5. Эквиваленция
Я не знаю, в каком порядке приложение распределит фото, но надеюсь, что всё понятно
#Python 3.X
x = int(input())
print(str(x % 1)[2])