Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
I=2400кБайт=19660800бит
T=56 c Следовательно уравнение будет выглядеть так:
19660800/56=x/14
x=4915200бит=614 400 байт= 600Кбайт
Скорее всего так)
<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
Во вложении на верхнем рисунке показана схема двумерного массива (матрицы), размером 100х100. Желтые кружки - элементы массива. Выделена главная диагональ матрицы (условие, когда номер строки равен номеру столбца), а треугольники с заливкой выделяют верхнюю и нижнюю треугольные матрицы. Если исходная матрица квадратная, то количество элементов в обоих треугольных матрицах одинаково.
На нижнем рисунке описывается заполнение элементов массива. Строки нижней треугольной матрицы заполняется номерами строки (зеленая область), а столбцы верхней треугольной матрицы - номерами столбцов с обратным знаком (красная область). При внимательном рассмотрении можно понять, что каждому элементу зеленой области будет сопоставлен элемент красной с таким же значением, но с противоположным знаком. Следовательно, сумма этих элементов будет равна нулю.
Осталось найти сумму элементов главной диагонали. Там будут элементы -1, -2, -3, ... -99, -100. Это сумма первых 100 чисел натурального ряда, образующих арифметическую прогрессию, взятая с противоположным знаком.
![\displaystyle S= \frac{2a_1+d(n-1)}{2}n= \frac{2\cdot1+1(100-1)}{2}\cdot100= \frac{101\cdot100}{2}=5050](https://tex.z-dn.net/?f=%5Cdisplaystyle%20S%3D%20%5Cfrac%7B2a_1%2Bd%28n-1%29%7D%7B2%7Dn%3D%20%5Cfrac%7B2%5Ccdot1%2B1%28100-1%29%7D%7B2%7D%5Ccdot100%3D%20%20%5Cfrac%7B101%5Ccdot100%7D%7B2%7D%3D5050%20)
Ответ: -5050
Вытащи батарею и снова вставь,потом поставь на зарядку,минут 10 пусть подзарядится и снова включи