Ответ:
0-лодно , а 1-истинно
Объяснение:
нет
зимой есть снег A=1 нет снега B=0
C=1+0=1
C=1*0=0 разные згачение одновременно нет
Вроде получилось:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат:
N=16
N=2^i
Отсюда следует, что i=4бит
i=4
k=1000
I=k*I
I=1000*4=4000бит
4000/8=500байт
<span>Пронумеруем для наглядности: </span>
<span>1, 2, 3, 4 </span>
<span>Итак: </span>
<span>1) Сравниваем первую пару, например 1 и 2 </span>
<span>2) Сравниваем вторую пару — 3 и 4 </span>
<span>3) Сравниваем победителей первых двух пунктов между собой. Победитель будет самым тяжёлым </span>
<span>4) Сравниваем проигравших первых двух пунктов между собой. Проигравший будет самым лёгким </span>
<span>5) Теперь сравниваем те 2 арбуза, которые остались посерединке.</span>