Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
2 в степени i = N
N=50
i=6 бит (так как 2^5= 32, а мы должны брать с избытком)
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
ReadlnString.ToUpper.Println('')
end.
<u><em>Тестовое решение:</em></u>
Это тестовая строчка
ЭТО ТЕСТОВАЯ СТРОЧКА
«неблагоприятный» случай: школьники собрали по 7 ящиков яблок, груш и слив; всего использован 21 ящик. В свободный ящик можно положить яблоки, груши или сливы, следовательно, имеется по крайней мере 7 + 1 = 8 ящиков, содержимое которых – один из указанных видов фруктов.