название программы начинается с __ незнаю в чем компилируешь, может ругаться.
убери лишние begin end в условиях, они не нужны там
после readln
if ... then ... else END;
после каждого else if начинается, не нужны begin end, у тебя одно условие там. и одно действие
Если на диске хранятся сотни и тысячи файлов, то для удобства поиска используется многоуровневая иерархическая файловая система, <span>которая имеет древовидную структуру. Такую иерархическую систему можно сравнить, например, с оглавлением данного учебника, которое представляет собой иерархическую систему разделов, глав, параграфов и пунктов.
</span>
10) правильный ответ Г - выражения идентичны
8) Ввод данных в тестовом редакторе идет единым массивом, в электронной таблице разделен на кластеры - ячейки и строки, что позволяет обращаться к ним точечно.
Объем равен x * y * i
x - ширина, y - высота, i - кол-во бит для кодирования цвета
i вычисляется по формуле N = 2^i, где N - кол-во цветов
i = 24
Тогда объем равен 1024 * 768 * 24 = 18874368 бит = 2359296 байт = <span>2304 Кбайт = 2,25 Мбайт</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.