Var a,b:integer;
<span>begin </span>
<span>writeln('Введите два числа через пробел'); </span>
<span>read(a,b); </span>
<span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span>
<span>else writeln('Нет'); </span>
<span>end.</span>
1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
<span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на третьем месте цепочки стоит одна из бусин H, E;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на втором месте – одна из бусин D, E, C, которой нет на третьем месте;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD EDHC DEHE
</span><span>– в начале стоит одна из бусин D, H, B, которой нет на втором месте;
</span>DEHD HEHC DCEE DCHE HDHD DEHE
<span>
– в конце – одна из бусин D, E, C, не стоящая на первом месте.
</span>HEHC DCEE DCHE HDHD DEHE<span>
Ответ: 5</span>
Решение прикрепил скрином, ну и конечно для развития скажу вам, фут это 0,3м а не 0,45. Я так понял в этой задаче поставили 0,45 что-бы не так было просто загуглить.
Это вид информации, поступающей по проводящим путям сенсорных систем и вызывающей определённый вид ощущений(например - зрительная модальность или слуховая модальность)
