Program gt; var n,q,i:longint; begin read(n); read(q); {q-начальное значение числа а в твоем примере q=2} {n-в общем случае; n- количество последовательностей} write(q,' '); for i:=2 to n do begin q:=q*2; write(q,' '); end; end. А если придумать то так как каждое число равно привидушему числу умноженному на 2 то просто возмем любое число и будем умножат ее на 2 пример: 2 4 6 8 ... 3 6 12 24.. 4 8 16 32 ...
1. Алфавит - это форма письменности, основанная на стандартном наборе знаков. 2. Мощность алфавита - это кол-во символов в нём 3. Ic=i*k , Ic – количество информации в сообщении, i – количество информации которое несет один знак, k – количество знаков в сообщении 4. Т.к. каждый символ может иметь 64 значения, то есть 2^{6} , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 100. Значит всего нужно 6*100=600бит=75байт. 5. Это единицы размера полученной и переданной информации и размера файла. Килобайт = 1024 байт Мегабайт = 1024 килобайт Гигабайт = 1024 мегабайт 6. Дано: текст 3.5 килобайта
Найти: количество символов в тексте
Решение: Итак, текста у нас 3.5 килобайта
Переведём в байты:
3.5 кбайта * 1024 байт\килобайте = 3584 байт.
Так как кодировка не указана выбираем саму распространенную при обучении однобайтовую, тогда символ занимает ровно один байт и значит у нас
3584 символа. Если же используется двухбайтная кодировка, то 3584/2 = 1792 символа
ответ: 3584 для одного байта на символ или 1792 сиволов для двух байтной кодировки. 7. В первом тексте информационный объем одного символа составляет
Var max, //максимальный элемент min, //минимальный элемент sum, //сумма всех чисел n, //количество чисел j: integer; Begin write('Введите количество чисел: '); readln(n); write('Введите числа: '); readln(j); max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно for var i:=2 to n do begin readln(j); if(j > max) then max:=j else if(j < min) then min:=j; sum:= sum+j; end; sum:= round(sum/n)*min-max; //результирующая формула if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0 else writeln('Результат: ', sum); End.
var n,q,i:longint;
begin
read(n);
read(q);
{q-начальное значение числа а в твоем примере q=2}
{n-в общем случае; n- количество последовательностей}
write(q,' ');
for i:=2 to n do
begin
q:=q*2;
write(q,' ');
end;
end.
А если придумать то так как каждое число равно привидушему числу умноженному на 2 то просто возмем любое число и будем умножат ее на 2
пример:
2 4 6 8 ...
3 6 12 24..
4 8 16 32 ...