Ответ: 7
По условию если значение Ball[k] больше 3, то значение c увеличивается на 1.
Проверяем:
Ball[1] = 4 > 3 (да) c = 1
Ball[2] = 5 > 3 (да) c = 2
Ball[3] = 3 > 3 (нет) c = 2
Ball[4] = 4 > 3 (да) c = 3
Ball[5] = 2 > 3 (нет) c = 3
Ball[6] = 5 > 3 (да) c = 4
Ball[7] = 4 > 3 (да) c = 5
Ball[8] = 3 > 3 (нет) c = 5
Ball[9] = 4 > 3 (да) c = 6
Ball[10] = 5 > 3 (да) c = 7
Var c1,c2,c3,s:integer; ну или другой тип, если не целые числа
begin
writeln("Введите цену 1го товара "); readln(c1);
writeln("Введите цену 2го товара "); readln(c2);
writeln("Введите цену 3го товара "); readln(c3);
writeln("Введите сумму"); readln(s);
if (c1+c2+c3<=s) then writeln("Денег хватает") else writeln ("Денег не хватает");
end.
Подробное решение в прикрепленных.
1. 100111(2) = 39(10)
2. 513(10) = 1000000<span>001(2)
7000(10) = </span>1101101011<span>000(2)
3. 8700(10) = </span>20<span>774(8)
9300(10) = </span>22<span>124(8)
4. 287(10) = </span><span>11F(16)
1023(10) = </span><span>3FF(16)
5. 1010001001011(2) = </span>12<span>113(8)
</span>1010001001011(2) = 1<span>44B(16)
10</span>11001101111(2) = 13<span>157(8)
</span><span>1011001101111(2) = </span><span>166F(16)
6. 266(8) = </span>10110<span>110(2)
2A19(16) = </span>10101000011<span>001(2)
7. 29(10) = </span>11<span>101(2)
17(10) = </span>10<span>001(2)
11101(2) + </span>10<span>001(2) = </span>101<span>110(2)</span>
11101(2) - 10001(2) = 1<span>100(2)</span>
11101(2) * 10001(2) = 111101<span>101(2)</span>
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!