Нужно умножить каждую единицу на двойку в степени n, где n - это позиция единицы справа начиная с нуля
![11101_2 = 2^0 + 2^2 + 2^3 + 2^4 = 29](https://tex.z-dn.net/?f=11101_2+%3D+2%5E0+%2B+2%5E2+%2B+2%5E3+%2B+2%5E4+%3D+29)
здесь на "первом" месте справа (считаем с нуля) стоит ноль, поэтому нет 2^1
<span>Те́кстовый файл — компьютерный файл, содержащий текстовые данные. Текстовым файлам противопоставляются двоичные файлы, в которых содержатся данные, не рассчитанные на интерпретацию в качестве текстовых.</span>
Program pbc;
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
<span>end.</span>
1. фото
2.-2
3.-3
все что было, решила