Прямого кода. Прямой код двоичного числа совпадает по изображению с записью самого числа. обратного кода. Обратный код для положительного числа совпадает с прямым кодом. Для отрицательного числа все цифры числа заменяются на противоположные (1 на 0, 0 на 1), а в знаковый разряд заносится единица. дополнительного кода. Дополнительный код положительного числа совпадает с прямым кодом. Для отрицательного числа дополнительный код образуется путем получения обратного кода и добавлением к младшему разряду единицы.
var K, P, i: integer;
begin
read(K);
i := 1;
while i < K do
begin
i := i + 3;
P := P + i;
end;
Print(P);
end.
или:
begin
var K := ReadInteger('K:');
Print((4+K)/2*((K-4)/3+1));
end.