//pascal abc.net версия 2.2 сборка 790 var ar: array of integer; i,n: integer; begin; randomize; readln(n); if n> 100 then exit; setlength(ar,n+1); writeln('first array: '); for i: =1 to n do begin; ar[i]: =random(-10,10); write(ar[i]: 5); if ar[i]> 0 then ar[i]: =ar[i]+5 else ar[i]: =abs(ar[i]); end; writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 5); end. пример ввода: 2пример вывода: first array: 2 -1final array: 7 1
Кириллов57
17.10.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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Ирастровое изображение, размер 64*64 пикселя занимает 4 килобайта памяти. каково максимальное количество цветов?