<span>A:=X div 1000=1234/1000=1
B:= X mod 1000 div 100=(1234/1000)/100=234/100=2
C:= X mod 100 div 10=(1234/100)/10=34/10=3
D:= X mod 10=1234/10=4
Y:=1000*d+100*c+10*b+a=1000*4+100*3+10*2+1=4321
</span><span>F:= X - Y+1=1234-4321+1=-3086</span>
А) Последствия событий 13 века: события этого века положили начало отстаиванию русских земель от стран 'Западной Европы; Золотоордын-ское иго нанесло огромный ущерб экономическому. политическому и культурному развитию Руси
б) Океан - главный хранитель воды, давно поражающий исследователей необычностью своих свойств. Воды пронизывают всю географическую оболочку и производил в ней разнообразную работу
в) Симбиоз - это взаимовыгодное отношение двух организмов. Плоские черви - паразиты
г) Всякий равносторонний треугольник есть равноугольный треугольник. Прямоугольник с равными сторонами есть квадрат
д) Русский язык - один из славянских языков. Пунктуация изучат знаки препинания
е) Пушкин - великий русский поэт. Достоевский - один из популярных писателей
<span>ж) Информатика зиждется на математике. Компьютер облегчил жизнь человека
</span>
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
Вот все варианты решения
значения идут по порядку
"0001110101"
"0001111101"
"0010101101"
"0010110101"
"0010111101"
"0011010101"
"0011011101"
"0011101101"
"0011110101"
"0011111101"
"0101010101"
"0101011101"
"0101101101"
"0101110101"
"0101111101"
"0110101101"
"0110110101"
"0110111101"
"0111010101"
"0111011101"
"0111101101"
"0111110101"
"0111111101"
"1010101101"
"1010110101"
"1010111101"
"1011010101"
"1011011101"
"1011101101"
"1011110101"
"1011111101"
"1101010101"
"1101011101"
"1101101101"
"1101110101"
"1101111101"
"1110101101"
"1110110101"
"1110111101"
"1111010101"
"1111011101"
"1111101101"
"1111110101"
"1111111101"
//Ruby 22
for i in 0..2**10-1
s = ("000000000000000000000000000000" + i.to_s(2))[-10..-1]
next if s[-2]=="1"
a=[]
s.each_char { |c| a<<(c=="1") }
f = true
for k in 0..a.size-3
f = (f and (not a[k] or a[k+1] or a[k+2]))
end
p s if f
end