20.03.2010, 21:12
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
total90..хм, байда, программа правильно написано, сомнений нет, а раз прошло 0 тестов, то думаю проблема в другом, отправь этот код на проверку
Код:
var
n, k, volk: integer;
ok: boolean;
begin
readln(n, k);
d:=0;
volk:=0;
ok:=true;
while (ok) and (k<n) do
begin
inc(k);
inc(volk, 2);
if k <= volk then ok:=false;
end;
if ok then write('0') else write('1');
readln;
end.
а, блин, понятно почему 0 тестов проходила, я вместо 0 выводил 1, а вместо 1, 0 
Последний раз редактировалось Soherox; 20.03.2010 в 21:14..
|
|
|