(с++) В матриці поміняти місцями перший рядок з останнім, другий з передостаннім і т. д. аж до центру матриці. Обнулити ті рядки матриці, в яких нуль зустрічається у першій половині рядка, а в інших рядках інвертувати порядок їх розташування.

1 вариант

Pascal

Var

n,k,i:integer;

X,A,f,C:Real;

begin

k:=1;

Writeln('Введите N');

Readln(n);

Writeln('Введите X');

Readln(x);

Writeln('Введите A');

Readln(a);

F:=(exp(ln(X/A)*1))/1;

for i:=2 to n do begin

  k:=k*i;

  C:=(exp(ln(X/A)*N))/K;

  F:=F+C;

end;

Writeln(F);

end.

2 вариант

var

 X, A, F : Real;

 i, N : Integer;

begin

 Write('n = '); ReadLn(N);

 Write('x = '); ReadLn(X);

 Write('a = '); ReadLn(A);

 F := 1;

 Sum := F;

 for i := 1 to N do

   begin

     F := F * (X / A) / i;

     Sum := Sum + F;

   end;

 WriteLn(Sum:0:5);

end.

uses graphabc;

begin

SetPenWidth(3);

MoveTo(100,50);

LineTo(150,200);

LineTo(100,400);

LineTo(200,200);

LineTo(200,150);

LineTo(100,50);

FloodFill(150,150, clGray);

MoveTo(200,150);

LineTo(300,100);

LineTo(350,50);

LineTo(500,100);

LineTo(550,150);

LineTo(550,200);

LineTo(500,250);

LineTo(350,300);

LineTo(300,250);

LineTo(200,200);

Line(300,100,500,100);

FloodFill(350,90, clGray);

Line(300,250,500,250);

FloodFill(350,290, clGray);

SetBrushColor(clGray);

Circle(500,150,10);

SetBrushColor(clBlack);

Circle(500,150,4);

Rectangle(550,150,557,200);

SetBrushStyle(bsDiagCross);

FloodFill(250,150, clGray)

end.

Объяснение:

картинка