Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.
52=26 половина
26+20=46
52-46=6
6
1 байт =8 бит
1 Кб - 1024 байта = 2^10 байт
1 Мб -1024 Килобайта= 2^10 килобайт
1 Гб <span>- 1024 Мегабайта= 2^10 мегабайт
__________________________
48567 : 8 = </span>6070,875 байт
6070,875 :1024 = 5,9 Кбайт
5,9 : 1024 = 0,006 Мегабайт
<span>Диск представляет из себя одну большую папку (корневой каталог), в которой можно создавать другие папки для хранения файлов. Файл можно создать, редактировать (как содержимое файла, так и название, т.е., переименовать), переместить в другую папку, скопировать\вставить, удалить</span>