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

[Аватар]

Та там описка, заменить y:=(x-k) mod 2; на y:=(x-k) div 2;

[Оляя]

Аватар, еще хуже(((

[Оляя]

Благодаря всем ВАМ мои мозги шевелились и даже появился некий азарт
Поиграя с данными и учитывая все ВАШИ предложения и мысли, я вышла на след код, кот дал полное решение задачи:

Program Str1;
VAR N,K,x,r: longint;

BEGIN
Readln(N,K); 
if n>= 3*k then BEGIN
                x:=(N-3*K) div 2;
                r:= (N-3*K) mod 2;
                If ((x<1) or (r>0))then x:= x+1;
                end
 else  x:=0;
Write(x);
           
END.

Кстати, если использовать integer, а не longint , решение проходит только 7 тестов из 11.

А теперь для очень любопытных. которым интересно, почему есть доступ к проверяющим данным: эта одна из олимпиадных задача для учащихся 8 классов, которая уже прошла, а доступ для преподов остался...(разбора задачи этой нигде не смогла найти)

[Аватар]

Аватар, еще хуже(((

Специально на сайте зарегился, не понял где хуже, все 11 тестов задача прошла, 100 балов заработал

Program Str1;
var x,y,n,k: longint;
begin
  Readln(N,K);
  x:=n-k-k;
  if x>k then begin
    y:=(x-k) div 2;
    if y*2<x-k then Inc(y);
  end
  else y:=0;
  Write(y);
end.

[Poma][a]

Специально на сайте зарегился, не понял где хуже, все 11 тестов задача прошла, 100 балов заработал

А можно ссылку? А то там 4 мильёна ссылок.. и бегать по всех не хочется.. Спасибо!

[Аватар]

BDA давал же http://informatics.msk.ru/mod/statem....php?id=9742#1
От туда и зарегистрировался, вроде все просто, даже без email

[Poma][a]

ВDA давал же http://informatics.msk.ru/mod/statem....php?id=9742#1
От туда и зарегистрировался, вроде все просто, даже без email

Не.. мне бы ту, куда сдает ТС..

[Оляя]

Спасибо ОГРОМНОЕ Аватар, может я что-то не правильно дописала в вашем коде, уже и не помню..., в любом случае спасибо, хоть мозгами своими благодаря ВАС дошла, что тоже приятно