Function Dec2Bin(n:longint): string;
{ Перевод натурального десятичного n в систему счисления по основанию 2 }
var
s: string;
begin
s := '';
while n > 0 do
begin
if Odd(n) then s:='1'+s else s:='0'+s;
n := n div 2
end;
Dec2Bin := s;
end;
var
A:longint;
i,k:integer;
s:string;
begin
Write('Введите натуральное число А: '); Read(A);
Write('Введите номер бита i (счет с 1 справа налево): '); Read(i);
s:=Dec2Bin(A);
k:=Length(s);
if (i>0) and (i<=k) then Writeln('Значение бита: ',s[k+1-i])
else Writeln('Неверный номер бита')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число А: 37
Введите номер бита i (счет с 1 справа налево): 5
Значение бита: 0
Основные правила ввода текста:
> не нажимайте на клавишу ввода для перехода на новый ряд;
> не нажимайте на клавишу Пробел для создания абзацных отступов и центрирования текста;
> не нажимайте на клавишу Backspace, чтобы переместить курсор к позиции с ошибкой;
> чтобы получить большую букву, нажмите на клавишу Shift;
> следите, чтобы не была нажата клавиша Caps Lock, иначе все буквы будут большими;
> помните, что следующий абзац (после нажатия на клавишу ввода) унаследует вид (стиль) предыдущего.
С помощью команд пункта Файл или кнопок стандартной панели инструментов, которые их дублируют, над текстовым документом можно выполнить такие важнейшие операции:
1. Создать новый документ(Создать…, Ctrl + N);
2. Открыть старый документ (Открыть…, Ctrl + O);
3. Сохранить на диске (Сохранить, Shift + F12);
4. Сохранить с новым именем (Сохранить как...);
5. Закрыть (Выход);
6. Печатать (Печать…, Ctrl + P);
7. Задать параметры страницы(Параметры страницы…) и другие.
A.колонка.
Б.сервер.
В.монитор.
Г.сканер.
Лишное слово сервер.
Все остальное - устройства компьютера.А сервер -компьютер.
def fun(S):
while S.find(" ,")>=0: S = S.replace(" ,", ",")
while S.find(" .")>=0: S = S.replace(" .", ".")
S = S.replace(",", ", ")
S = S.replace(".", ". ")
while S.find(" ")>=0: S = S.replace(" ", " ")
return S
st = input("Введите строку: ")
print(fun(st))
Пример:
Введите строку: маша , петя .даша ,коля.света .
маша, петя. даша, коля. света.
