Два игрока, петя и ваня, играют в следующую игру. перед игроками лежат две кучи камней. игроки ходят по очереди, первый ход делает петя. за один ход игрок может добавить в одну из куч (по своему выбору) два камня или увеличить количество камней в куче в два раза. для того чтобы делать ходы, у каждого игрока есть неограниченное количество камней. игра завершается в тот момент, когда суммарное количество камней в кучах становится не менее 80. победителем считается игрок, сделавший последний ход, то есть первым получивший такую позицию, что в кучах всего будет 80 или больше камней. в начальный момент в первой куче было 7 камней, во второй куче – s камней; 1 ≤ s ≤ 72. 1. при каких s: 1а) петя выигрывает первым ходом; 1б) ваня выигрывает первым ходом? 2. назовите одно любое значение s, при котором петя может выиграть своим вторым ходом. 3. назовите значение s, при котором ваня выигрывает своим первым или вторым ходом.

Итак, начнём с того, что попытаемся понять условие.

У нас есть две кучки камней и два игрока: первый (Петя) и второй (Ваня).Игроки ходят по очереди.За ход в любую из кучек можно либо добавить один камень, либо увеличить количество камней в кучке в два раза.Как только суммарно в кучке стало 73 или более камня, игра заканчивается.Тот, кто ходил последним, выиграл.

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "russian");

double a, b;

cout << "введите а и б" << endl;

cin >> a >> b;

if ((a <= 0 && b <= 0) || a > 0 && b > 0)

 cout << "да";

else cout << "нет";

   return 0;

}

2задание

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "russian");

double a;

cout << "введите температуру " << endl;

cin >> a ;

if (a >60)

 cout << "пожарная ситуация";

return 0;

}

Объяснение:

ответ: тигры занесены в красную книгу, к ним нужно относиться бережно :-)

program ChetNechet;

var

 A, B, chet, nechet, otvet, i: Integer;

begin

 Write ('Введите А, В: ');

 ReadLn (A, B);

 chet := 0;

 nechet := 0;

 for i := A to B do begin

   if i mod 2 = 0 then

     Inc (chet)

   else

     Inc (nechet);

 end;

 otvet := chet - nechet;

 WriteLn ('Четных: ', chet);

 WriteLn ('Нечетных: ', nechet);

 WriteLn ('ответ: ', otvet);

 ReadLn;

end.

Объяснение:

for i := A to B do begin

цикл перебирает числа от А до В включительно.

если верхняя граница должна быть В + 1 то есть на 1 больше, то исправьте