Объясню алгоритм:
считываем слово,
если это слово имеет чётную длину
если это слово палиндром
то ответ ложь
иначе ответ истина
11010010-11011011-11010101-11010011-11001001 =0
Вариант решения на языке Python:
m = int(input())
if m % 4 == 0 :
k3 = 0
k4 = m // 4
elif m % 4 == 1 :
k3 = 3
k4 = (m-9) // 4
elif m % 4 == 2 :
k3 = 2
k4 = (m-6) // 4
elif m % 4 == 3 :
k3 = 1
k4 = (m-3) // 4
if m ==1 or m == 2 or m == 5 :
k3 = 0
k4 = 0
print(k3)
print(k4)
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
write('Введите число:'); //добавить эти 2 строки
read(x);
k:=0;
while x<>0 do // поменять у на х
begin
//if x*y<0 then inc(k); убрать эту строку
if x*y>0 then inc(k);
y:=x;
read(x); // изменить у на х
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.