Задания решаются по таблице истинности
1 - true
0 - false
1)x*x*x*x*x или можно sqr(x)*sqr(x)*x
2)2*a+10*10*10*10*10*d-4*3/7*c*c*c*c*c+2/3
3)sqrt(abs(x-1))
Первый день - 1, это 2^0
Второй день - 2, это 2^1
Десятый день - 2^9 = 512 листов
Половина пруда - 512/2=256=2^8, значит понадобится 9 дней.
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString;
var (m,n):=ReadInteger2('Введите через пробел m и n:');
Swap(a[m],a[n]); a.Println;
end.
<u>Пример</u>
Информатика
Введите через пробел m и n: 5 2
Ирфонматика