Var i,j,x,n
x - введенное число, i - число с которым нужно сравнить, n - счётчик чисел
n:=0;
ReadLn (i);
for j:=1 to 5 do begin
ReadLn (x);
if x=i then n:=n+1;
end;
writeLn("N= "n)
<em>3. 11 +1 = 100, 111 +1 = 1 0 0 0, 1111 +1 = 1 0 0 0 0, 11111 +1 = 1 0 0 0 0 0.</em>
<em>2. Сделаешь сам, это элементарно очень. Берешь число и делишь его на два.....Остатки, которые я подчеркнул красным....считаешь в обратном порядке. ..</em>
<em>1. Тоже решишь сам, вот подсказка: Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа</em><span><em>. </em></span>