Переведём 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
1) 151273
2) 157999
3) 256040
Var
x,y : integer;
begin
Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');
<span>end.</span>
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
Линейный алгоритм - алгоритм в котором последовательность действий не меняется в процессе выполнения.
Блок схема - графическое представление алгоритма.
Алгоритм с ветвлением - алгоритм, в котором должно выполняться определенное условие.