Автор | Сообщение |
|
Отправлено: 22.01.23 15:48. Заголовок: 5900
Здравствуйте. В задаче 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
[только новые]
|
|
|
Отправлено: 22.01.23 15:57. Заголовок: ## uses school; var ..
## 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;
|
|
|
|
| Администратор
|
Сообщение: 3829
|
|
Отправлено: 26.01.23 10:42. Заголовок: Nadezda08 пишет: Есл..
Nadezda08 пишет: цитата: | Если все-таки в вопросе N, то ответ сходится. |
|
В вопросе должно быть N. Спасибо, исправлено.
|
|
|
|