88 бит одна буква один восемь бит
В русском алфавите всего 33 буквы,следовательно подставим буквы под цифровые значения,получается,что:
1-А
2-Б
...
33-Я
Челнокова-256131516121631
Екатерина-61212061810151
<span>Романовна-181614115163151</span>
4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу
Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
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