program number7;
uses crt;
var A: integer;
begin
clrscr;
A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;
writeln('a=',A);
end.
a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток
<em>// PascalABC.NET 3.2, сборка 1478 от 10.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
<u>Пример</u>
n= 15373
S=118172251
<em>№2</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Количество отрицательных элементов построчно:');
a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
88 43 64 50 -27 -9 48 55
1 40 -39 -99 -45 -54 17 -77
-33 99 -38 -19 -93 18 -19 -24
17 4 -36 90 98 69 68 35
-35 18 85 54 -74 -69 14 -62
--------------------------------
Количество отрицательных элементов построчно:
2 5 6 1 4
1) (x>2)*¬(x<4) = (x>2)*(x≥4) =1 при x=4
1 * 1 = 1
ответ: 4) x=4
2) ¬ ((x>3) + (x< -3 ) )= 0
¬(x>3) * ¬(x< -3) =0
(x≤3)*(x≥-3) =0
1 * 1 = 1 при x=-3
1 * 1 = 1 при х=1
1 * 1 = 1 при х=3
0 * 1 = 0 при х=5
1 * 1 =1 при х =0
ответ 2) х=5
3) ¬((x>1) *(x<3)) =0 или:
(x>1)*(x<3) =1
1) x>3 1 * 0 = 0
2) x<0 0 * 1 = 0
3) x≤1 0 * 1 =0
4) x=2 1 *1 =1
5) x =3 1 * 0 = 0
ответ 4) х=2
4) ( x+3 > -10)*(x<0) = 1 ИЛИ:
(x >- 13) *(x<0) =1 ---> -13 < x < 0 --> 2) x=-10
ответ 2) х=-10
5) ¬(х<7) +(x<0) =1
(x≥7) +(x<0) =1 //////////0______________7\\\\\\\\\\x
ответ 2) x<0
6) ответ 1) ¬((x>1)* (x<3) ) (при х=2 равно 0)
7) (x<2)+(x<20)*(x>10)=1
x∉ (-∞;2) ∪ (10;20)
ответ 1)х<2
8) (x<2)+¬((x>20)+(x<10)=0
0 + ¬1 =0 при x>2
ответ 5) x>2
9) ответ 1) х=1
10) ответ 1) х=1
11) ответ 1) х=5
12) ответ 4) х=4
13) ответ: 3) х=-3
14) ответ 4) х=4
11Кбайт*1024=<span>
11264 байт</span><span>
</span><span>
11264*8=</span><span><span>90112 бит/22528=4 бита на 1 символ
2 в 4 степени=16 мощность
ответ г)</span></span>
Чтобы не было такого, что 1 человек несколько раз регистрировался и также, чтобы человек мог восстановить свою страницу в любое время,даже если его взломали.
