Как понял. Задаешь два вектора. И начинаешь сравнивать значения первого вектора, со значениями второго. Если какие то значения окажутся равными. то записать какой слот они занимают в первом векторе. После проверки всех чисел, удалить запомненные слоты в первом векторе
<span>системе счисления с основанием Р=2 это двоичная система счисления.
Каждый знак является либо единицей либо нулем.
Максимальное число из трех цифр будет
111 (2)
что составляет
2^2 + 2^1 + 2^0 = 4+2+1 = 7</span>
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
Var a,i:integer;
begin
for i:= 1 to 4 do begin
a:=random(1,20);
write(a,' ');
end;
<span>end.</span>