Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
<span>end.</span>
Пиши, допустим, Описание жёлтой команды: Выполняет алгоритм при нажатии клавиши пробел и передаёт сигнал синей команде которая в свою очередь выполняет команду - сделать 10 шагов
Var i,k: integer;
a: array[1..16] of integer;
priz: boolean;
st: string;
begin
k:=0; priz:=false;
st:='';
randomize;
writeln('исходный массив из 16 элементов');
for i:=1 to 16 do
begin
a[i]:=random(50)-30;
write(a[i],' ');
if a[i]<0 then k:=k+1;
if (a[i] mod 3) = 0 then
begin
priz:=true;
if i>9 then
st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
else st:=st+chr(ord(i+48))+',';
end;
end;
writeln;
delete(st,length(st),1);
if k>0 then
writeln('кол-во отрицат. элементов = ',k);
if priz then
writeln('индексы элементов, кратных трем: ',st)
else writeln('нет элементов, кратных 3');
readln;
<span>end.
</span>
Z = 1; i = 0
z = (z+x/2)/2 = (1+14/2)/2 = 4; i = i+1 = 0+1 = 1; i<4 ⇒ 1<4 ⇒ да
z = (z+x/2)/2 = (4+14/2)/2 = 5.5; i = i+1 = 1+1 = 2; i<4 ⇒ 2<4 ⇒ да
z = (z+x/2)/2 = (5.5+14/2)/2 = 6.25 (≈6.3); i = i+1 = 2+1 = 3; i<4 ⇒ 3<4 ⇒ да
z = (z+x/2)/2 = (6.25+14/2)/2 = 6.625 (≈6.7); i = i+1 = 3+1 = 4; i<4 ⇒ 4<4 ⇒ нет
Ответ: z = 6.625 (если округлять - 6.7)