1011010,1=1*2^6+1*2^4+1*2^3+1*2^1+1*2^-1=90.5
Самый простой вариант - цикл сложения. Или сдвиг на 2 бита влево и прибавление этого числа один раз, например.
var a, b, c , d : integer;
begin
read(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then
writeln('Нечетны')
else
writeln('Есть четные');
end.
6 бит на символ так как 2 в степени 6 = 64;
50 байтов = 400 бит;
2000 символов = 12000 бит;
время = 12000/400 = 30 секунд
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.