Сформировать с функции random() множество, содержащее 5 целых чисел из диапазона 1..10 и вывести это множество на экран. паскаль.множества

// pascalabc.net 3.0, сборка 1088 const   n=5; var   s: set of 1..10;   k,t: 1..10; begin   randomize;   k: =0;   repeat       t: =random(10)+1;       if not (t in s) then begin include(s,t); inc(k) end   until k=5;   for k: =1 to 10 do       if k in s then write(k,' ');   writeln  end. тестовое решение: 2 7 8 9 10

Я  уже решал эту . я руками за 5 дней делаю 5 коробок, и на 6-ой день покупаю духовку. руками и духовкой я делаю 2 коробки в день, за 5 дней - 10 коробок. на 6-ой день я покупаю вторую духовку. руками и 2-мя духовками я за 5 дней делаю 15 коробок, и на 6-ой день покупаю 3-ью духовку. и так далее. чтобы купить очередную духовку, я работаю 5 дней, а на 6-ой день ее покупаю, и у меня печенья не остается совсем. то есть, после покупки каждой духовки я начинаю всё с нуля. главное - понять, когда нужно остановиться покупать духовки и начать уже копить печенье на складе. итак, подведем итоги: 1) на покупку каждой духовки мы тратим 6 суток и начинаем с нуля. 2) имея n духовок, мы делаем 584 коробок печенья за  trunc(584/(n+1)) + 1 дней, где trunc(x) = [x] - это целая часть x.  3) всего мы тратим времени t(n) = 6n + trunc(584/(n+1)) + 1 --> min минимум функции trunc(584/(n+1)) совпадает с минимумом 584/(n+1) t(n) = 6n + 584/(n+1) + 1 --> min t'(n) = 6 - 584/(n+1)^2 = (6(n+1)^2 - 584) / (n+1)^2 = 0 6(n+1)^2 - 584 = 0 (n+1)^2 = 584/6 =  97,33 n + 1 = √97,33 ~  9,86 = 10 n = 9 значит, нужно ограничиться покупкой 9 духовок. за 6*9 = 54 дня мы их купим, и за 584/10 ~ 59 дней мы соберем нужное количество коробок на складе. всего мы истратим 54 + 59 = 113 дней.