Во вложении файл с рабочей книгой ms excel 2003 sub abcd() dim n as integer, a(1 to 8) as integer dim r as range n = 8 imax = 1 set r = range(cells(1, 1), cells(2, 8)) r.clearcontents 'очистка области r.interior.color = rgb(255, 255, 255) 'очистка цвета заливки for i = 1 to n a(i) = int(30 * rnd) if a(i) > a(imax) then imax = i cells(1, i) = a(i) next t = a(imax) cells(1, imax).interior.color = rgb(204, 255, 255) range(cells(1, 1), cells(1, imax - .color = rgb(255, 255, 153) for i = imax - 1 to 1 step -1 a(i + 1) = a(i) next a(1) = t for i = 1 to n cells(2, i) = a(i) next cells(2, 1).interior.color = rgb(204, 255, 255) range(cells(2, 2), cells(2, .color = rgb(255, 255, 153) end sub
optikaleks7
24.03.2021
1) а) на java class example{ public static void main (string[] args){ int k = 0, j = 0; for (int i = 0; i < 10; i++){ k = k + 5; j = j + k; if (i == 9) system.out.print(k); else system.out.print(k + " + "); } system.out.print(" = " + j); } } б) на pascal var a,b,c: integer; begin for a: =1 to 10 do begin b: =b+5; c: =c+b; if (a = 10) then write(b) else write(b, ' + ') end; write(' = ', c); end. 2) а) на java class example{ public static void main(string args[]){ for (int x = 50; x > = 40; { double y = (5 * x) + (math.pow(x, 2)); int i = (int) y; system.out.println(i); } } } б) на pascal var y: real; x: integer; begin for x: =50 downto 40 do begin y: =(5*x)+sqr(x); writeln(y: 0: 0); end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Из какого количества цветов состоит графическое изображение размером 10х10, если его информационный объем 800 бит