EvelinaKPACABA
10.04.2022 00:04

(Если не знаете ответ,пройдите мимо,не пытайтесь заработать на халяву решите,завтра нужно сдать умоляю.Вот условие.(Нужно с решением )Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежит куча камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может
a) добавить в кучу два камня или
б) увеличить количество камней в куче в три раза и затем добавить в кучу 2 камня.
Например, имея кучу из 10 камней, за один ход можно получить кучу из 12 или 32 камней. У
каждого игрока, чтобы делать ходы, есть неограниченное количество камней. Игра завершается в
тот момент, когда количество камней в куче становится не менее 60. Победителем считается игрок,
сделавший последний ход, то есть первым получивший кучу, в которой будет 60 или больше
камней.
В начальный момент в куче было S камней, 1 ≤S≤ 59.
1. При каких S: 1a) Петя выигрывает первым ходом; 1б) Ваня выигрывает первым ходом?
2. Назовите все значения S, при которых Петя может выиграть своим вторым ходом?
3. Назовите все значения S, при которых Ваня выигрывает своим первым или вторым ходом.
P.s.В интернета этой задачи нет,нужно самим решить

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Senenadasha2017
18.03.2022 22:25

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение:

0,0(0 оценок)
Ответ:
mashagalushko2
18.03.2022 22:25
Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота