//Pascal ABC.NET v3.1 сборка 1172
begin
range(26,87).Where(x -> x mod 3=0).Println(',');
end.
F= ¬A*B +A+B
F=B(¬A+1) +A
F=A+B
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
Андреев из Екатеринбурга
<span>Борисов из Перми </span>
<span>Васильев из Омска </span>
<span>Григорьев из Челябинск </span>
<span>Данилов из Новосибирска</span>