<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
<u>Примечание: если чисел гарантировано 10, то .Take(10) можно убрать</u>
Больших жёлтых яблок было 7 штук.
1.32+17=42. Всего плодов
2.42-32=10.маленк. желт. яблок.
3.42-28=14.- большие зел.плоды
4.<span>Яблок на 2 больше, чем груш — 8 яблок, 6 груш.
5. 25 яблок, из них больш. зел. 8, маленк. жёлт. 10.
6.</span><span> 25-8-10=7.</span>
10*650=6500 кб * 8= 52000 Кбит
В кодирове ASCII кждый символ кодируется 1 байтом.
4000 байт/128 = 31,25 Кбит
52000+31,25=52031,25 Кбит/8192≈6,35 Мб
t=J/v; t=52031,25 Кбит / 256 Кбит/с ≈ 203,25c
При 256 символьном алфавите, каждый символ кодируется одним Байтом.
40*9*512*2=368640Байт. Делим на 1024 =360 кБайт.