Анализ действий программы (евклидов метод) , базы сигнатур
Переведём 31 в другие системы, начиная с двоичной
31_10 = 11111_2 = 1011_3 = 133_4 = 111_5 = 51_6 = 43_7
---------------
Остаток от деления 32 на n
n - остаток
<span><span><span>
5
2
</span>
<span>
6
2
</span>
<span>7
4
</span>
<span>
8
0
</span>
<span>
9
5
</span>
<span>
10
2
</span>
<span>
11
10
</span>
<span>
12
8
</span>
<span>
13
6
</span>
<span>14
4
</span>
<span>
15
2
</span>
<span>
16
0
</span>
<span>
17
15
</span>
<span>18
14
</span>
<span>
19
13
</span>
<span>
20
12
</span>
<span>
21
11
</span>
<span>
22
10
</span>
<span>
23
9
</span>
<span>
24
8
</span>
<span>
25
7
</span>
<span>
26
6
</span>
<span>
27
5
</span>
<span>28
4
</span>
<span>
29
3
</span></span></span>
-------
65_8 = 53_10 = 1 + n +3n^2
<span>3 n^2 + n - 52 = 0
</span>n=4
A) Запишите элементы действия, примененные в форматирование.
Адреса ячеек Форматирование
А1-А7:Этот элемент действия называется автозаполнение порядкового номера в Excel
Е2-Е7, С7-Е7.А этот элемент действия называется автозаполнением суммы тоже в Exel
В словах каждому символу соответствует один байт (если не сказано
иначе), тогда в слове "бит" - 3 байта
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
