<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
<em>// Внимание! В более ранних версиях программа работать не будет!</em>
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
<u>Пример</u>
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
end.
<u>Пример</u>
n= 15
24 17 2 47 -32 20 -39 -36 3 -1 -44 35 40 -20 -35
#include <bits/stdc++.h>
using namespace std;
int main() {
bool eq = true;
int x, y;
cin >> x;
while (true) {
cin >> y;
if (y < 0) break;
if (y != x) {
eq = false;
break;
}
x = y;
}
cout << (eq ? "YES" : "NO") << endl;
return 0;
}
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
Корень - sqrt
число в квадрате - ^2
то есть:
1) sqrt(1+x)
2) a+sqrt(b^2-4ac)/2b+3a
3) sqrt(x+y)/x^2+y
модули точно не помню, но, вроде, sqr
4) sqr(x1+x2)+y1/y2+x1
5) sqr(x+y) / sqr(x-y) + sqr(x-y) / sqr(x+y)
6) x1+x2+ sqr(x1) / sqr(x1+y2)
7) sqrt(x+y) / x-y + x-y / sqrt(x+y)
8) b^2-4ac / sqrt(2a+b)
9) sqrt(sqr(sin(/alpha)) + sqr(cos(/beta))) / sqrt(sqr(sin(/beta) + cos(/alpha)))
10) точно не знаю
11) (x+y)* (x+ (y/x^2+xy))/(1+ 1/(x^2+4))
Не уверен, что все правильно. Старался