// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n= 17
-38 37 -82 54 62 -28 33 37 -61 63 -66 63 -81 -63 3 38 12
63 63 62 54 38 37 37 33 12 3 -28 -38 -61 -63 -66 -81 -82
var
x,y: integer;
begin
readln(x,y);
writeln('1. ',x-x**3 / 3 + x**5 / 5);
writeln('2. ',2**(-x) - cos(x) + sin(2*x*y));
writeln('3. ',x-(10*sin(x)) + abs((x**4)-(x**5)));
writeln('4. ',x**2-7*x+10/x**2-8*x+12);
End.
Использовать Робот
алг
нач
нц 2 раз
нц 4 раз
закрасить
вниз
кц
нц 6 раз
закрасить
вправо
кц
нц 4 раз
закрасить
вверх
закрасить
кц
нц 4 раз
влево
кц
нц 2 раз
вниз
закрасить
кц
нц 2 раз
вправо
закрасить
кц
вверх
закрасить
нц 4 раз
если справа свободно и снизу свободно то
вправо
вниз
все
кц
кц
кон
Ответ:
84
Объяснение:
n=1!+2!+3!+4!+5!+6!+7!=84
можешь сделать как лучшее пожалуйста
#include <iostream>
using namespace std;
int main()
{
int n;
do
cin >> n;
while (n<1000 || n>9999);
n/=100;
cout <<n <<endl;
return 0;
}