var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
Ответ:
ответ под буквой в я уверен
Python
1. x = [1,2,3,4,5,6,7,8,9,0] #Массив
print(x[:5])
print(x[5:])
2. x = [1,2,3,4,5,6] #Массив
print(x[::-1])
3. x = [0,1,2,3,4] #Массив
for i in range(1,len(x),2): print(x[i])
4. То же самое, что 3 программа, только 1 в range(...) заменить на 0
пы сы Хэштэг это комментарий в языке Python т.е. не исполняется
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1.</u>
begin
Writeln(Range(1,99,2).Sum) // Сумма нечетных
end.
<u>Вариант 2</u>
begin
Writeln((99+1)/2*((99-1)/2+1)) // Сумма арифметической прогрессии
end.
<u>Вариант 3</u>
begin
Writeln(Range(1,100).Where(x->x.IsOdd).Sum) // тупой перебор
end.
<u>Во всех вариантах результат 2500</u>