<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if a[i,j].IsEven then k+=1;
Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
90 57 58 49 91 -83 61
-57 70 52 90 53 -22 89
-90 -23 39 -88 28 16 -34
-65 -19 -92 -49 77 11 79
-37 -85 -5 6 -41 -75 -90
1 62 24 92 -37 88 21
-65 -47 48 -39 -46 6 38
----------------------------
Количество четных элементов ниже побочной диагонали: 11
5) a1:=1/x
a2=(1/x)/x=1/x^2
a3=(1/x^2)/x=1/x^3
a4=(1/x^3)/x=1/x^4
y=(1/x)+(1/x^2)=(x+1)/x^2
y=(x^2+x+1)/x^3
y=(x^3+x^2+x+1)/x^4
6) Ответ: 14
7) 5 суток = 5*24*60 = 5*24*60*60 сек
8) хз
9) Var a,b,c,s,x: integer;
begin
x:=125;
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln(a);
writeln(b);
writeln(c);
writeln(s);
<span> end.</span>
<span>n = int(input())
max5 = <span>0
</span>for i in (1, n+1):
a = int(input())
if a % 5 == 0 and a > max5:
max5 = a
print(max5)
</span>
28:2=14 пар по 2 лампочки
3 состояния это i, поэтому
14 в 3 степени = 2744 разных состояния
4. Буфер обміну, зокрема, дуже корисна функція, адже набирати те саме речення по 3-4 рази втомлює та дратує водночас. З ним легко ввести одні й ті ж самі слова, наприклад, в таблиці, замість того, щоб набирати його вручну. Він корисний, коли потрібно розіслати оголошення в соц. мережі кільком друзям, аніж нервуватись над написанням кожного оголошення.
Вибачайте, але 5 я не зможу зробити, але хоча би з цим допомогла.
