var i,B,s:integer;
begin
write('Введите число B: ');
readln (B);
for i:=10 downto B do s:=s+i*i;
writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)
end.
Для того чтобы хранить информацию поступающую в компьютер путем внешнего воздействия
Нужно составить вопросы? И на какую тему?
<span>arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0] <span># Заполняем элементами массив
</span>a = <span>0
</span>b = <span>0
</span>for i in range(len(arr)):
if arr[i] > a:
b = a
a = arr[i]
print(b)</span>
Размер символа 16 битов
Решение (0.5*1024*8)/256
Тоесть преобразуем все в биты, потом находим размер делением