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
1)<span>1110001000+110100100=100+210=310 </span>
<span><span>2) 1001001101+1111000= 294,5-60=234,5</span></span>
<span><span><span>3) 111100010,0101+1111111,01= нз</span></span></span>
<span><span><span><span>4) 1010111001-1010001011= 348,5-325,5=23</span>
<span>5) 1110101011-100111000= 469,5-156=313,5</span>
<span>6) 1110111000,011-111001101,001= нз</span>
<span>7) 1011010*1000010= 47*33=1551</span>
<span>8) 111010110:1010= 234,5:5=46,9</span></span></span></span>
Program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.
1849-1854г инженером Ш.бурселем