Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.
Это некорректная задача, т.к. не указано считает ли учитель различными комбинации в которые различаются только порядком (например, <3,4,5> и <4,3,5>)?
Если для него это разные комбинации, то ответ: 3^3 = 27
А вот, если не различает, то ответ: 3! (все оценки различны) + 3!/(3-2)! (две оценки
совпадают) + 3!/(3-1)! (три оценки совпадают) = 6 + 6 + 3 = 15
Соответственно ответ: или 27, или 15.
Очень просто я помогаю товарищу с математикой и товарищ очень рад источник информации это человек который знает математику и отправляет ответ через компьютер или телефон
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
var s:=a.Partition(x->x.IsEven);
if s[0].Count<=s[1].Count then Writeln(s[0].Min)
else Writeln(s[1].Min)
end.
<u>Примеры</u>
n= 9
33 43 60 94 5 19 84 58 6
5
n= 10
54 55 71 65 79 88 71 98 8 71
8