Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 10 баллов за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted;
var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted;
var z:=ArrRandom(ReadInteger('r='),1,18).Sorted;
x.Println; y.Println; z.Println;
var r:=x.Intersect(y.Intersect(z));
if r.Count=0 then Writeln('Нет общих элементов')
else begin Write ('Общие элементы: '); r.Println end
end.
<u><em>Тестовое решение</em></u>
p= 15
q= 13
r= 18
-19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20
-8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15
1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17
Общие элементы: 4
Картинка с заполненной таблицей прикреплена,рассказываю сам алгоритм
Берём 640*480 пикселей и 4 бита
Всего точек на экране: 640*480=307200
Необходимый объём видеопамяти: Умножаем количество битов на количество точек на экране: 307200*4=1228800 бит
1 Килобайт=2 в 10 степени байт= 2 в 13 степени бит
1 Мегабайт=2 в 20 степени байт=2 в 23 степени бит
Как же перевести из битов в килобайт?
Берём наше решение-1228800 бит
вычисляем 2 в 13 степени=8192
1228800/8192=150 Кб и дальше по такой же схеме делаешь
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
Пусть х - это фрешка-гамбургер (xDDDDDDD), y - фрешка без крышки, z - фрешка вместе с крышкой.
x+2y+3z=40
}
2x+4y+9z=104
2x+4y+6z=80
(2x+4y+9z)-(2x+4y+6z)=104-80
3z=24
z=8
x+6y+3z-(x+2y+3z)=58-40
4y=18
y=4,5
x+2×4,5+3×8=40
x=40-24-9
x=7