Var
n,m,i,k:integer;
begin
Write('n='); Read(n);
Write('Вводите числа через пробел или Enter: ');
k:=0;
for i:=1 to n do begin
Read(m);
if m mod 2=1 then
if Frac(sqrt(m))=0 then Inc(k)
end;
Writeln('Найдено квадратов нечетных чисел: ',k)
end.
<u>Пример</u>
n=10
Вводите числа через пробел или Enter: 16 49 1 5 9 121 66 71 0 -1
Найдено квадратов нечетных чисел: 4
//////////////////////////////////////////////////////////
В прямом коде:
В обратном коде:
В дополнительном коде коде:
<span>276 = 100010100
276 постоянно делишь на 2, и остаток записываешь с конца к началу
</span><span>276/<span>2=138 остаток 0
</span></span><span>138/<span>2=69 остаток 0
</span></span><span>69/<span>2=34 остаток 1
остаток 0
остаток 1
остаток 0
</span></span>остаток <span>0
</span>остаток <span>0
</span>остаток 1