Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм и программу)

Program z_number; uses crt; var pr,i: integer; begin clrscr; pr: =1; i: =11; {первое двузначное нечетное число} repeat pr: =pr*i; i: =i+2; until(i> 100); writeln('произведение двузначных нечетных чисел ',pr); readln; end.

это у нас прогрессия b1=1

q=1/2

bn=0,001> b1*q^(n-1)

0,001> q^(n-1)

0,001> 0,5^(n-1)

0,0005> 0,5^n

n=11

s11=b1*(1-q^n)/(1-q)=b1*(1-0,5^11)/0,5=1(0,999511718)/0,5=1,999023438

почти равно двум

 

2^i=64, i=6 бит

для кодирования 1 символа нужно 6 бит

8775 * 8 = 70200 бит занимает сообщение

70200 : 6 = 11700 символов в сообщении

найдем х - количество символов в строке

6 * 30 * х = 11700

180х = 11700

х = 65

ответ. в строке 65 символов.