//pascalabc.net 3.1 сборка 1200 uses system; var n: longint; begin var s : = new list< longint> (); repeat readln(n); if n < > 0 then s.add(n); until n = 0; println(s); var av : = s.average; println(s.where(x -> x > av)); end.
mbobo28311
11.05.2022
#код на ruby 2.2.3p173 count = 0 for i in 0..2**9-1 s = ("000000000"+i.to_s(2))[- vertix = 0 s.chars.each {|c| vertix = (vertix + (c == "1" ? 1 : -1)) % 3 ; # p [c, vertix] } if vertix == 0 p s count += 1 end end p count вывод 170
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Крупнейшие реки. нужно сделать диаграмму, по этой таблице, не простую, но диаграмму. буду за работу.