program Text;
uses
Windows;
var
s, r: String;
i, j, c: Integer;
begin
// SetConsoleCP(1251); // если русские буквы нормально не отображаются - попробуйте эти две команды
// SetConsoleOutputCP(1251);
WriteLn ('Введите строку: ');
ReadLn (s);
r := '';
c := 0;
for i := Length (s) downto 1 do begin
if s [i] <> ' ' then
r := r + s [i]
else
Inc (c);
end;
// WriteLn (r); // вывод промежуточного результата
Randomize;
for i := 1 to c do begin
j := Random (Length (r));
Insert (' ', r, j);
end;
WriteLn (r);
ReadLn;
end.
ответ: 13
Объяснение:
задача на оценку + пример
оценка:
для каждого человека можно выбрать 2-ух - которых нельзя вставить в дружеское жюри вместе с ним (может быть, что 1 это только 1 человек). => если для каждого 2 этих человека - разные мы можем взять ровно 1/3 от всех людей = 13. => ответ >= 13
пример (что 13 - макс).
возьмем 3 -х людей. 1 критикует 2-го, 2-ой 3-го, 3-ий первого. И разобьем 39 ученых на 13 таких троек, получим, что из каждой тройки можем взять только 1 ученого =>макс ученых 13
но данное количество учёных в жюри может быть верным, только в данной последовательности