polariskirov
polariskirov
13.02.2023
?>

9. прятки мистера фокса мистер фокс и его друзья лисы решили сыграть в прятки в гексагональном лесу размером 8 на 8. каждый лис видит только по горизонтали и левой диагонали. сколькими могут спрятаться друг от друга 7 лис, так чтобы ни один лис не видел другого? в качестве ответа укажите одно целое число. 10. ford в некоторой компьютерной игре, чтобы получить специальный бонус необходимо нажать сочетание из двух клавиш. мальчик вася точно помнит что эти клавиши есть среди “f", "o", "r", и "d”. он уже сделал несколько попыток и точно знает, что нажаты клавиши “o” и “f” — никакого результата нажата “o” или “f” — код срабатывает если вместе с “r” или “o” нажата “d” — ничего не произойдет если вместе с “r” или “d” нажата “f” — снова нет результата какой же тогда код? ответ запишите в лексикографическом порядке большими латинскими буквами без пробелов или других разделителей, например fo.

Информатика
Ответить

Ответы

Yulechkaakulova1993
Yulechkaakulova1993
13.02.2023
ответ на задачу 2: OR
annakuzina2023
annakuzina2023
13.02.2023
Процедурой:

// Возводит действилельное число x в целую степень n
Procedure Pow(Const X:real; Const n:integer; Var St:real);
Var i:integer;
Begin
St:=1;
For i:= 1 to n do
    St:=St*x;
End;

Var
   x,y,St:real;
   n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
For n:= 1 to n do
    Begin
    Pow(x,n,St);
    y:=y+Cos(St);
    End;
WriteLn('y = ',y);
End.

Функцией:

// Возводит действилельное число x в целую степень n
Function Pow(Const X:real; Const n:integer):real;
Var i:integer;
Begin
result:=1;
For i:= 1 to n do
    result:=result*x;
End;
Var
   x,y:real;
   n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
For n:= 1 to n do
    y:=y+Cos(Pow(x,n));
WriteLn('y = ',y);
End.

Циклом:

Var
   x,y,St:real;
   n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
St:=1;
For n:= 1 to n do
    Begin
    St:=St*x;
    y:=y+Cos(St);
    End;
WriteLn('y = ',y);
End.
andrew55588201824
andrew55588201824
13.02.2023
#include <iostream>
#include <map>
#include <string>
using namespace std;

int main()
{
string mon;
map<string, int> months = {
{"январь", 1},
{"февраль", 2},
{"март", 3},
{"апрель", 4},
{"май", 5},
{"июнь", 6},
{"июль", 7},
{"август", 8},
{"сентябрь", 9},
{"октябрь", 10},
{"ноябрь", 11},
{"декабрь", 12}
};
cout << "Введите название месяца строчными буквами: ";
cin >> mon;
switch (months[mon]) {
case 2:
cout << "28 дней";
break;
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12:
cout << "31 день";
break;
case 4:
case 6:
case 9:
case 11:
cout << "30 дней";
break;
}
cout << endl;
return 0;
}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

9. прятки мистера фокса мистер фокс и его друзья лисы решили сыграть в прятки в гексагональном лесу размером 8 на 8. каждый лис видит только по горизонтали и левой диагонали. сколькими могут спрятаться друг от друга 7 лис, так чтобы ни один лис не видел другого? в качестве ответа укажите одно целое число. 10. ford в некоторой компьютерной игре, чтобы получить специальный бонус необходимо нажать сочетание из двух клавиш. мальчик вася точно помнит что эти клавиши есть среди “f", "o", "r", и "d”. он уже сделал несколько попыток и точно знает, что нажаты клавиши “o” и “f” — никакого результата нажата “o” или “f” — код срабатывает если вместе с “r” или “o” нажата “d” — ничего не произойдет если вместе с “r” или “d” нажата “f” — снова нет результата какой же тогда код? ответ запишите в лексикографическом порядке большими латинскими буквами без пробелов или других разделителей, например fo.
Ваше имя (никнейм)*
Email*
Комментарий*
▲