Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
То где ты будешь писать код, блокнот или специальный редактор.
Объяснение:
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива а: ');
for i: =1 to 10 do
readln(a[i]);
writeln('исходный массив а: ');
write(a[i]);
k: =0;
for i: =1 to 9 do
if a[i]< > a[10] then k: =k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
1. нужно найти сколько бит весит обна буква.
64 это 6 бит информации.
2. i=6*20= 120 бит
мы умножыли биты на количество используемых букв.
вот и
Популярные вопросы