Можете с тестом по информатике?
readln: (a);
s:=0;
p:=a;
while p>0 do
begin
S:=S+p mod 10;
p:=p div 10;
end;
end.
1.Определите значение переменной S после выполнения фрагмента программы при а=23
2.Определите значение переменной S после выполнения фрагмента программы при а=109

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

Также Китай является официальным языком на материке Китай, Гонконг, Макао, Тайвань и Сингапур, но говорят по всей Азии, Европе и Америке в китайских общинах.

Это означает, что даже за пределами Китая вы все равно сможете найти кого-то для практики, независимо от того, живете ли вы в Азии или в небольшом городе в США.

Английский язык так популярен из-за нескольких причин:

Культурно-социальные причины. Никак нельзя отрицать тот факт, что американский кинематограф и музыка стали популярны во всем мире. Практически каждый современный человек посещает кинотеатры и смотрит голливудские фильмы. Не стоит забывать и про музыку. Практически все мировые исполнители сочиняют свои песни на английском языке. Фанаты, естественно, стремятся понимать их тексты, а значит, начинают изучать слова, повышая знания в английском языке.

Экономическо-политические причины. На мировой политической и экономической арене появилась такая держава, как Соединенные Штаты Америки. Английский язык постепенно стал движущей силой прогресса во всем мире и практически единственным обмениваться информацией.

Объяснение:

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2])))
      .MaxBy(x->x[2]);
  for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
  for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
  SetLength(a,n-1,n-1); a.Println(4)    
end.

Пример
Количество строк/столбцов в матрице: 5
  87  -5 -38  -9  57
  31  66  57 -25  40
  11  66  99 -79  91
  12  95  93  27 -97
  33 -94  14  19  39

  87  -5  -9  57
  31  66 -25  40
  12  95  27 -97
  33 -94  19  39