Хром жрет переносы - сейчас исправлю
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
int N; cin >> N;
int **arr = new int*[N];
for (int i = 0; i < N; i++) {
arr[i] = new int[N];
for (int j = 0; j < N; j++)
cin >> arr[i][j];
}
int mem = 0;
for (int i = 1; i < N; ++i)
if (arr[mem][N - 1 - mem] > arr[i][N - 1 - i])
mem = i; cout << mem + 1 << " " << N - mem << endl;
system("pause");
return 0;
}
1. select * from Название_таблицы order by Поле_с_датой
2. select * from <span>Название_таблицы where Имя_автора <> 'Беляев А.Р.' order by автор, год
3. delete from </span><span>Название_таблицы where номер_полки=5 and год<'01-01-1990'</span>
<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
var
st:string;
i,a,pr:integer;
begin
<em>readln(st,a);</em>
pr:=1;
for i:=1 to 4 <em>do</em>
pr:=pr*(ord(st[i])-ord('0'));
<em>writeln(pr mod a=0);</em>
end.<span>
</span>