Var
<span> d:integer;
</span>n,s:real;
begin
n=10;
S=10;(путь в первый день ,считать будем поэтому со второго)
d=2;
repeat
n:n*(1+0.1);
s=s+n;
d:d+1;
untill d > 7 ;
writeln(s)
end.
Гражданин Российской Федерации
Какого словаря?
Если что 1мегабайт=1024килобайта=1024*1024байт
16777216 = 2^24 бит = 3 байта
1024*768=786432 пикселей. 786432*3=2359296 байт = 2304 кБ на страницу
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.
<u><em>Тестовое решение:</em></u>
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45