2.акпаратты тасымалдау куралдарына нелер жатады? 3.браузер кандай кызмет аткарады? кандай браузерлерди билесин?
4.кужаттарга корганыс калай орнатылады?
на русском :
2. что относится к средствам передачи информации?
3. какую функцию выполняет Браузер?Какие браузеры ты знаешь?
4.Как устанавливается защита документов?
248
439
Ответы на вопрос:
Такой вариант на простом паскале со стратегией жадность 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 ='; 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.
Популярно: Информатика
-
прост123224.03.2020 10:54
-
Decabrina666604.09.2020 22:40
-
nusikz24.03.2021 20:48
-
kerillponomarenco07.03.2021 01:36
-
sasha183612.06.2020 06:55
-
islom050316.01.2021 13:13
-
anshul16.07.2022 05:38
-
dVioletta30.08.2020 20:50
-
toonon11228.12.2020 14:36
-
egorkamarkov005.09.2021 15:34