Отметьте преимущества операционной системы linux. бесплатность простота настройки и установки высокое быстродействие высокий уровень безопасности и защиты от вирусов полная поддержка современной аппаратуры
Такой вариант на простом паскале со стратегией жадность
var n, s, i: integer; x: array[1..100]of integer; answer: string;
begin readln(n); for i := 1 to n do read(x[i]); readln(s);
answer := IntToStr(s) + ' = '; for i := n downto 1 do begin answer := answer + IntToStr(s div x[i]) + '*' + IntToStr(x[i]); s := s mod x[i]; if i > 1 then answer := answer + ' + '; end;
if s <> 0 then writeln('NO') else writeln(answer); end.
Более полный и правильный вариант решения, но и куда более сложный
//PascalABC.Net 3.1 сборка 1200 uses System.Collections.Generic; uses System; var x := new List<integer>; c := new List<Tuple<string, integer>>;
procedure getParcelling(sum, step: integer; coefficients: string; count: integer); begin if step >= x.Count then begin if sum = 0 then c.Add((coefficients, count)); Exit; end; if step < 0 then step := 0;
for var j := 0 to (sum div x[step]) do begin var s := ''; if j > 0 then begin if step > 0 then s += ' + '; s += IntToStr(j) + '*' + IntToStr(x[step]); end; getParcelling(sum - x[step] * j, step + 1, coefficients + s, count + j); end; end;
begin x := ReadArrInteger('x:', ReadInteger('n =')).ToList; var sum := ReadInteger('sum =');
getParcelling(sum, 0, '', 0); if c.Count = 0 then writeln('No') else begin var min := c.Min(cc -> cc.Item2); Println(c.Where(cc -> cc.Item2 = min)); end; end.
1) собирается - журналист опрашивает людей для статьи 2) обрабатывается - ученик решает уравнение 2) упрощается - преподователь объясняет материал 3) создается - журналист придумывает статью 4) запоминается - парнень запоминает номер телефона девушки 5) измеряется - программист рассчитывает сколько бит займет программа 6) копируется - ученик списывает у одноклассника 7) передается - две девушки обмениваются новостями 8) принимается - ученики слушают учителя на уроке 9) разрушается - статья журналиста отвергается 10) делится на части - человек разбирает сообщение в котором пропущены пробелы 11) ищется - человек ищет материал для реферата в интернете
