Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
180:5=36
36-5=31,
,.решениеЭтокаЖатсЯ
Половинок вдвое больше чем целых яблок.
1 0 0
+ 1 0 0
----------
1 0 0 0
В двух младших разрядах 0 + 0 = 0 и это справедливо в любой системе счисления.
А вот 1 + 1 = 10 справедливо только в двоичной системе.
Покажем это.
<u><em>
Ответ:</em></u> счет велся в двоичной системе счисления.