subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
Его создали для того чтобы создать такого робота, который мог бы взаимодействовать с людьми и помогать им, таким образом делая их жизнь легче и приятнее. И хотя сейчас еще не приходится говорить о том, что роботы способны выполнять какие-то особенно важные для человека действия, они уже могут стать помощниками для пожилых людей и инвалидов.
По середине "источник информации" > "информационный канал" > "приемник информации"
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadReal.Between(0,10))
end.
<u>Выводится True, если принадлежит [0;10], False - если нет.</u>