Форум » Динамическое программирование » №2655 другой ответ » Ответить
№2655 другой ответ
Fisher: Добрый день . Задачу № 2655 решил в паскале, получилось 490969. В ответах 245937. В чём ошибка ? [pre2] var a,i,j,k:integer; m:array[1..1000] of integer; begin assign(input,'18.txt'); for i:=1 to 1000 do begin readln(a); m[ i]:=a; end; for i:=1 to 991 do for j:=10 to 1000 do if (m[ i]+m[j]) mod 2=1 then inc(k); write(k); end.[/pre]
Ответов - 2
Поляков: Fisher пишет:for i:=1 to 991 do for j:=10 to 1000 do Например, вы учитываете пару m[10] и m[11].
Fisher: Понял, спасибо
полная версия страницы