Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
A=10
b=6
dec(a) => a=9
b:=9 mod 4 => b=1
d:=9-1 => d=8
Ответ: d=8
Function _Xor (x, y:boolean): boolean;
begin
_Xor:=not(x=y);
end;
var x,y:integer;
begin
write('x y: ');
readln(x,y);
if _Xor(x=0,y=0)
then writeln(1) else writeln(0);
end.
Пример:
x y: 0 1
1
Const n=10;
var ar:array[1..n] of integer;
a,b,i,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
ar[1]:=a; ar[2]:=b; s:=a+b;
for i:=3 to n do
begin
ar[i]:=s+i;
s:=s+ar[i];
end;
for i:=1 to n do write(ar[i],' ');
writeln;
end.
Пример:
a = 2
b = 3
2 3 8 17 35 71 143 287 575 1151
137=1*2^2+3*2+7*2^0=4+6+7=17 с индексом 10