Вуглах квадратного листа железа сторона которого равна 1 м, вырезают четыре квадрата со стороной х. затем складывают получившуюся развёртку сваривают швы и таким образом получается бак. определите размер выреза х, при котором получится бак наибольшего размера.

//v = (100 -2*h)*(100 -2*h)*h const l = 100; var v1, v2,h : real; begin v1: = 0;   v2: =1; h: =10; while (v2 - v1) > 0 do begin v1 : = (100 - 2* h)* (100 - 2* h)*h; h : = h +0.5; v2 : = (100 - 2* h)* (100 - 2* h)*h; writeln('высота = ', h , ', объем ', v1); end; writeln('высота = ', h , ', максимальный объем ', v1); end.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

 

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

 

 

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;