Максимум . решить в excel ( с формулами) .

1) присваиваем ячейке a3 имя x, ячейке b3 имя y и ячейке c3 имя z

2) в ячейке b5 пишем: =((x+2)*x+3)*x+4

3) в ячейке b6 пишем: =(x+y+z)/x/y/z

4) в ячейке b7 пишем: =((1+x)/x/y)^0,5

Program p1; const  n = 10; var  a: array[1..n] of integer;   b: array[1..n] of integer;   i, sum, j: integer; begin  for i : = 1 to n do begin a[i] : = random(10); write(a[i], ' ') end; writeln;   for i : = 1 to n do begin b[i] : = random(10); write(b[i], ' ') end; writeln;   sum : = 0;   for i : = 1 to n do if i mod 2 = 0 then sum : = sum + a[i];   for i : = 1 to n do if i mod 2 < > 0 then b[i] : = sum;   for i : = 1 to n do write(b[i], ' ')    end.

Заяц: uses graphabc; begin setpenwidth(5);               // голова setpencolor(clpurple); circle (250, 130, 50); setpenwidth(2);               // щека setpencolor(clpurple); circle (220, 150, 20); setpenwidth(2);               // усы setpencolor(clblack); line(270,130,220,150); setpencolor(clblack); line(270,145,223,153); setpencolor(clblack); line(260,160,222,157); setpencolor(clpurple);         // носик ellipse(202,141,190,150); setpenwidth(5);               // тело circle (320, 230, 75); setpenwidth(3);               // рука circle (250, 230, 20); setpenwidth(2);               // хвостик ellipse(390,270,410,230); end.