Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
<em>Нужно посчитать байты слова:</em>
24 * 2 = 48 байта
<em>Зная, что в 1 байте содержится 8 бит делаем следующее:</em>
48 байта * 8 = 384 бит
<em>Ответ: 384 бит</em>
Эта функция от трех переменных. Логическая схема во вложении. Удачи!
Var
step: array[1..8] of real;
i, x: integer;
begin
readln(x);
step[1] := 1 - x;
step[2] := step[1] * step[1];
step[3] := step[2] * step[1];
step[4] := 3 * x;
step[5] := step[4] * x;
step[6] := 1 - step[5];
step[7] := step[6] * x;
step[8] := step[3] + step[7];
for i := 1 to 8 do
write(step[i], ' ');
end.
<h3>Без проблем :</h3>
берём и делим это число на несколько групп, которые будут состоять из 3 цифр - имея 10101101 - получаем : 010 101 101 (приписали 0 к 010 для того чтобы нам было удобно) , ищем числа по табличке переводов из 2 в 8 сс - выводим , что 010 - это 2 , а 101 -это 5
<h2>В итоге мы скрепляем все эти числа получаем ответ : 255</h2>