Question

Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K

Answer 1

Program z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.

Answer 2

var
  n, k: integer;

begin;
  read(n);
  k := -10000;
  while(k < 0) do
    k := k - 1;
  writeln('Min: k = ', (k + 1) div 3, ', 3*k = ', k + 1);
 
  k := n div 3;
  if 3 * k >= n then k := k - 1;
  writeln('Max: k = ', k, ', 3*k = ', 3 * k);
end.