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
Ответ:
Б) 7.
Объяснение:
Смотрим на последние разряды.
4 + 3 = 7, а там 0. Следовательно, было 10, единица ушла в следующих разряд. Чтобы вместо 7 получилось 10, основание системы счисления должно быть меньше на 10 - 7 = 3 (мы же все считали в привычной десятиричной системе). От 10 отнимаем 3 и будет 7. Это и есть ответ. И не нужно ничего больше никуда переводить.
Для примера. Если бы было написано в последних разрядах 4 и 2, а результат был бы 1, мы бы рассуждали так.
4 + 2 = 6, а написано 1, т.е. это было 11. 11 - 6 = 5 (разница).
10 - 5 = 5. Значит, система по основанию 5. Быстро и легко.
X - сколько бит весит один символ
2^x - мощность алфавита
8*256*х бит = 0.25*1024*8 бит
х = 0.25*1024*8 /8/256 = 1 бит
2^1 = 2 - мощность алфавита
Program b_3;
const Pi=3.1415926;
var R,S,C:real;
begin
write('введите радиус окружности');
readln(R);
C:=2*Pi*R;
S:=Pi*R*R;
writeln('длина окружности=',C:6:2);
writeln('площадь круга=',S:6:2);
End.
<span>a,b:integer;
d:string[45];
begin
SetConsoleOutputCP(1251);
writeln('Введите число в диапазоне от 1 дo 100');
write('a=');
readln(a);
b:=a mod 10;
a:=a div 10;
case b of
0: d:='';
1: d:='I';
2: d:='II';
3: d:='III';
4: d:='IV';
5: d:='V';
6: d:='VI';
7: d:='VII';
8: d:='VIII';
9: d:='IX';
end;
b:=a mod 10;
a:=a div 10;
case b of
0: d:=''+d;
1: d:='X'+d;
2: d:='XX'+d;
3: d:='XXX'+d;
4: d:='XL'+d;
5: d:='L'+d;
6: d:='LX'+d;
7: d:='LXX'+d;
8: d:='LXXX'+d;
9: d:='XC'+d;
end;
b:=a mod 10;
a:= a div 10;
case b of
0: d:=''+d;
1: d:='C'+d;
end;
writeln('B Римской системе счисления ' ,d);
readln;
end.</span><span> </span>