//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var k:integer;
begin
writeln('Введите k ');
readln(k);
if (k<0)or (k mod 4<>0) then writeln(abs(k+5))
else writeln (sqr(k)+5);
end.
Рассматриваются значения массива с индексами от 3 до 7.
Если его значение меньше пяти, то прибавляем к общей сумме, изначально равной 0.
Просмотрим все значения (от 3 до 7):
R[3] = -5 < 5. Сумма = 0 + R[3] = 0 + (-5) = -5
R[4] = 6 > 5. Условие не выполняется.
R[5] = 14 > 5. Условие не выполняется.
R[6] = 9 > 5. Условие не выполняется.
R[7] = 0 < 5. Сумма = -5 + R[7] = -5 + 0 = -5
R[8] не входит в рассматриваемую часть (цикл от 3 до 7).
Ответ: -5.
Складываем 0×2^0+0×2^1+1×2^2+1×2^3+0×2^4+1×2^5+1×2^6+1×2^7+1×2^8=4+8+32+64+128+256=492.
Файл-это информация,хранящаяся на внешнем носитиле и имеющая имя.
В паскале это функция ABS, в си скорее всего math.abs