Var A:integer;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
if (A div 10000 = A mod 10)and((A div 1000) mod 10 = (A div 10) mod 10) then Write('Число является полиндромом')
else Write('Число не является полиндромом')
End.
Не ясно какие именно операции можно использовать. Тут хорошо подойдет Исключающие Или, строгая дизьюнкция, бинарное сложение по модулю 2 (плюсик в кружечке), Xor
Если в обычных операндах дизъюннкции(or) и конъюнкции(and) , то будет так
(not (x>10) and (y>10)) or ((x>10) and not(y>10))
Что за язык?
ну создаешь переменную (допустим min), в неё заносишь значение первого элемента (элемента номер 0),
создаешь цикл и перебираешь со второго элемента (номер 1) до конца массива,
в ходе перебора сравниваешь значение каждого элемента массива с переменной (min), если значение элемента меньше, то присваиваешь переменной (min) значение текущего элемента в цикле...
+ Если нужно ещё найти порядковый номер наименьшего элемента в массиве, можно параллельно вести другую переменную (minnum) например, и каждый раз когда находится элемент меньший чем min присваивать minnum - номер текущего элемента в цикле
1) 2^15<65000<2^16 ----> 16 бит для одного цвета
2) 16 : 8 =2 уменьшение в два раза (ответ 4)
В предложении 70 символов.
70*16=1120(бит)
8 бит = 1 байт
1120/8=140(байт)
Ответ: 3) 140 байт.