Простая задача на цикл

[Оляя]

Ceil. Выдает ошибку компиляции в тестирующей системе, по этому и бьюсь, как белка об лед., а с Longint программа смогла пройти еще несколько типов тестов системы.

[BDA]

Так верните Uses Math;, так как FreePascal не знает о Ceil без этой библиотеки.
Или используйте одинаковые компиляторы при решении задания и во время отправки, или подстраивайтесь под особенности

[Poma][a]

Мне просто непонятно, почему Оле доступны результаты тестирования, хотя они обычно скрыты.

Внимательней на скринах говорится о том, что это доп тур только для учителей.. И ради этого дела даже тесты открыли..

[Serge_Bliznykov]

Сообщение от BDA

Serge_Bliznykov, да, так, наверное, пройдет. Мне просто непонятно, почему Оле доступны результаты тестирования, хотя они обычно скрыты. Кстати, контрпример для такого if N = 11 K = 3.

о! точно так! Вы правы, слажает мой if на таких данных!

а так пройдёт?

readln(N,K);
if (K<(N div 3)) and ((3*K)<N) then begin
  <ваш код по вычислению x>
end
else
  Write(0)
end.

[BDA]

Serge_Bliznykov, только не and, а or, наверное.

[Аватар]

Я не стал бы так просто 3 на K умножать (из-за опасности переполнения), а примерно так (N-K-K-K) ну и анализ на минус всего этого

PS

даже трижды нельзя отнимать, а дважды спокойно

[Serge_Bliznykov]

BDA, да нет, именно AND. Первое условие проверить, что у нас K меньше, чем N/3, но, как показывает ваш контрпример, этого недостаточно. Вторая проверка гарантирует, что нужно вычислять X (т.е. нужно добавлять к K число X и при этом X >0)

Аватар, вот именно поэтому я поставил ДВА условия. в надежде, что результаты второго вычиления нас уже не будут интересовать, если K больше(или равно), чем N/3

впрочем, согласен, лучше написать это так:

readln(N,K);
x := 0;
if (K<(N div 3)) then begin
   if ((3*K)<N) then begin
       x :=  <ваш код по вычислению x>
   end
   else 
      x := 0;
end
else
  x := 0;

Write(x);
end.

[Аватар]

или так

  x:=n-k-k; // и то не факт как заоптимизирует
  if x>k then begin
    y:=(x-k) mod 2;
    if y*2<x-k then Inc(y);
  end
  else y:=0;

[BDA]

Serge_Bliznykov, это составное условие через and сработает так: K< N div 3 для контрпримера не выполнится, и будет сразу выведен 0, хотя по второму условию, нужно рассчитать и вывести x. Вложенные if также плохо сработают на контрпримере.

[Оляя]

Аватар, Ваш код выдает не правильный ответ, к сожалению