program raf105;
var a,i:integer;
begin
for i:=50 to 70 do
begin
if ((i mod 2)=0) and ((i mod 4)<>0)
then a:= a+1;
end;
writeln('Вывод: ',a);
end.
<em>Язык программирования PascalABC</em>
Верный ответ - B) 2
Закодировать можно, например, так: "2" - 00, "3" - 01, "4" - 10, "5" - 11.
'Multyple' operation in binary system is simple: when the both components are '1' result will be '1', otherwise result will be '0'.
0011
x
1011
-----------
1011
+
1011
+ 0
+ 0
----------------
100001
PS/ 1+1=10; 0+0=0; 1+0=1; 1011*1=1011; 1011*0=0
1024 = 2 в 10 степени, значит глубина цвета = 10 бит, всего пикселов 16*24 = 384. Объём = 384*10 = 3840 бит = 480 байт
Var
a,b,n:integer;
begin
a:=2;
readln(n);
write(a,' ');
for b:=1 to n do
begin
a:=a*2;
write(a,' ');
end;
<span>end.</span>