Форум » Выполнение и анализ алгоритмов для исполнителей » 5900 » Ответить
5900
Nadezda08: Здравствуйте. В задаче 5900 ....."Найдите количество чисел R из отрезка [100; 200], для которых результат работы компьютера будет четным.". Но ведь R это и есть результат работы алгоритма... Или я не правильно поняла вопрос? Если все-таки в вопросе N, то ответ сходится. ## uses school; var k:=0; for var n:=100 to 200 do begin var p1:=tobase(n,2); if p1.Length mod 2=0 then p1:=p1+'10' else p1:='11'+p1; var r:=dec(p1,2); if r mod 2=0 then k+=1 end; println(k)
Ответов - 2
Nadezda08: ## uses school; var n:=(100..200).Select(m->(tobase(m,2).Length.divs(2) ?dec(tobase(m,2)+'10',2):dec('11'+tobase(m,2),2))).where(x->x mod 2=0).count.println;
Поляков: Nadezda08 пишет: Если все-таки в вопросе N, то ответ сходится. В вопросе должно быть N. Спасибо, исправлено.
полная версия страницы