Составьте программу, которая делает «переключение» битов (toggle) во введенном пользователем числе m (тип unsigned char). начальную позицию и количество переключаемых битов (идущих друг за другом) вводится пользователем с клавиатуры. выведите полученное число на экран. при вводе и выводе использовать представление в 16 системе счисления.

пример:
введеное число: 0xae (10101110)
позиция 4 (индексы битов начинаются с 0) и количество - 3
результат: 0xde (1100)


пользователь вводит с клавиатуры координаты трех точек: a (x1, y1), b (x2, y2), c (x3, y3). составьте программу, выводящую на экран координаты той точки, которая расположена ближе всех к центру координат (0, 0), и длину до него. переменные, хранящие координаты точек имеют тип double.
(программа codeblocks)

адрес ячейки в электронных таблицах состоит из имени столбца и следующего за ним номера строки, например, C15

·    формулы в электронных таблицах начинаются знаком = («равно»)

·    знаки +, –, *, / и ^ в формулах означают соответственно сложение, вычитание, умножение, деление и возведение в степень

·    запись B2:C4 означает диапазон, то есть, все ячейки внутри прямоугольника, ограниченного ячейками B2 и C4:

 например, по формуле =СУММ(B2:C4) вычисляется сумма значений ячеек B2, B3, B4, C2, C3 и C4

·    в заданиях ЕГЭ могут использоваться стандартные функции СЧЕТ (количество непустых ячеек), СУММ (сумма), СРЗНАЧ (среднее значение), МИН (минимальное значение),  МАКС (максимальное значение)

·    функция СРЗНАЧ при вычислении среднего арифметического не учитывает пустые ячейки и ячейки, заполненные текстом; например, после ввода формулы в C2 появится значение 2 (ячейка А2 – пустая):

Объяснение:

PascalABC.NET
Программа сработает некорректно если слова будут разделены                       несколькими      пробелами или строка будет заканчиваться пробелом
const      c = ' '; 
var   
s : string;   
k,p : integer;    
begin 
writeln ('Введите строку'); 
readln (s); 
k := -1; 
p := 1; 
if (s <> '') and (s <> ' ') then   
begin   
while p <> 0 do     
begin       
k := k +1;       
p := PosEx (c,s,p+1);      
end;   
writeln (k+1,' word')    
end   
else   
writeln ('error string'); 
end.