Практическая работа. Задан массив А[N]. Найдите сумму элементов заданного массива. Язык

print(sum((int(A[i]) for i in range(0, int(len(A

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

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

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

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

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

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

6 * 30 * х = 11700

180х = 11700

х = 65

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