М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ALEXCOOL613
ALEXCOOL613
04.11.2021 03:16 •  Информатика

Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежит куча камней (обозначим его S). За один ход игрок может добавить в кучу два камня, добавить в кучу три камня или увеличить количество камней в куче в два раза. Для того чтобы делать ходы, у каждого игрока есть неограниченное количество камней. Игра завершается в тот момент, когда камней в куче становится 30 или больше. Победителем считается игрок, сделавший последний ход.
а) Для каждого значения S (1 ≤ S ≤ 29) определите, кто выиграет и за сколько ходов. Для этого постройте таблицу.
б) Для S = 9 постройте дерево игры, показывающее стратегию выигрывающего игрока.

👇
Открыть все ответы
Ответ:
rusnazasly
rusnazasly
04.11.2021
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  // 1
  Println('1)',ArrRandom(10,-20,20).Println.Where(x->x<0).Count);
  // 2
  var b:=ArrRandomReal(20,-10,10); b.Println;
  Println('2)',b.Min+b.Max);
  // 3
  var c:=ArrRandom(20,-50,50); c.Println;
  Println('3)',c.Where(i->i.IsEven).Count,
    c.Where(i->i<0).Aggregate(1.0,(p,i)->p*i))
end.

Тестовое решение:
18 2 16 -14 -7 4 17 -2 -10 -7
1) 5
-2.40518030356857 9.37039580166824 -9.61575433593977 4.22255247562311 -0.090912082274869 -0.263467659365137 3.82946007597701 5.07986054526635 2.27932300059093 -9.80178165240296 0.365445125086906 9.8644010815138 -3.84280629169327 -3.11842201888488 6.69959188285265 9.19731859080369 0.582041605646742 -9.96684386393374 8.57817518458617 -5.38901657582681
2) -0.102442782419939
13 22 -13 -44 10 10 35 -48 -16 7 -48 37 -27 35 7 7 -39 44 -26 12
3) 10 577298202624
4,7(10 оценок)
Ответ:
elenafedorova
elenafedorova
04.11.2021
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(35,100,50000); a.Println;
  var k:=a.Sum;
  Write('Всего книг ',k);
  if (k>=1000000) and (k<=9999999) then
    Writeln(' - шестизначное число')
  else Writeln(' - не шестизначное число')
end.

Тестовые решения:
44847 40059 3938 43998 48227 2295 18961 36991 30123 41620 22198 13146 38442 8318 35835 49112 33119 4617 20383 19164 6367 30588 40391 31807 32046 49835 4990 817 31748 21075 16466 17557 44413 12879 803
Всего книг 897175 - не шестизначное число

36802 44900 5012 30120 29288 21787 24640 41798 38286 34288 3756 5543 765 28259 26754 29598 15994 40577 26492 10557 41597 48459 13095 29019 30351 47939 35197 10527 43439 21960 40977 41831 43125 48076 10234
Всего книг 1001042 - шестизначное число
4,7(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ