#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
int mas[3] = {a / 100, (a % 100) / 10, a % 10};
for (int jjj = 0; jjj < 3; jjj++)
for (int kkk = 0; kkk < 3; kkk++)
for (int lll = 0; lll < 3; lll++)
{
if (jjj != kkk and kkk != lll and lll != jjj)
if (!(jjj == 0 and kkk == 1 and lll == 2))
cout << mas[jjj] << mas[kkk] << mas[lll] << endl;
};
}
<em>
Реализована формула</em>
<em>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
<u>Пример</u>Введите х и у: 2.175 -1.4
s=-0.335572582839361
петр- математик, роман химик,сергей-физик
Смотри на фото. Там ответ.
Оно не будет повторяться,так как тут даже нету операторов для повтора.