Текст_сказки = replace('сказоч', 'чудес', текст_сказки)
Const
n = 20;
var
a: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(19999) - 9999;
Write(a[i]:6);
end;
Writeln;
i := 1;
flag := False;
repeat
flag := (sign(a[i]) = sign(a[i + 1]));
i := i + 1
until flag or (i > n);
if flag then Writeln('Есть пара соседних элементов с одним знаком')
else Writeln('Нет пар соседних элементов с одним знаком')
end.
<u>Тестовое решение:</u>
Элементы массива
2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844
Есть пара соседних элементов с одним знаком
1. От количества векторов.
2. Потому что рисунки состоят не из пикселей, а из векторов.
Бит - он бинарен, он может принимает 2 значения.
1: 1
2: 1
3: 1 + 1 = 2
4: 2 + 1 = 3
5: 3 + 2 = 5
6: 5 + 3 = 8
7: 8 + 5 = 13
8: 13 + 8 = 21
9: 21 + 13 = 34
10: 34 + 21 = 55
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ......
Последовательность чисел Фибоначчи / Fibonacci numbers