5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -
Разрабатывают разработчики.
исполняет исполнитель.
Всегда Ваш, Капитан Очевидность.
var
x, sum:integer;
Begin
Write('Введите число '); Readln(x);
while (x > 0) do begin
sum:= sum + x mod 10;
x:=x div 10
end;
if (sum mod 2 = 0)then
Writeln('YES')
else
Writeln('NO');
end.
3+1=4-1=100(милибайтов)-27=73(милибайтов)
ответ:73 милибайта