1>4>5>10>20>21>22>23>24>25>50>100
Как вариант
1.
uses crt;
var i,n:integer;
A:array[1..4] of integer;
begin
n:=1;
for i:=1 to 4 do
begin
read(A[i]);
n:=n*A[i];
end;
writeln(n);
end.
128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.
-Вы пользуетесь интернетом (варианты: да, нет)
-Вы пользуетесь интернетом по долгу служы (да. нет)
-Вы пользуетесь интернетом для личных целей (да. нет)
-Какое количество времени Вы затрачиваете на пользование интернетом (час, два-три, более 3-х)
-Каким интернетом Вы пользуетесь (варианты-виды интернета xDSL, кабельный, модем-флешка точные названия не знаю)
-Вас устраивает качество, скорость используемого интернета (да. нет)
-Каким тарифом Вы предпочитаете пользоваться (базовый, лимитный, комбинированный)
-Вас устраивает сумма оплаты за используемый тариф (да, нет)
Вопросы личного характера:
-укажите пожалуйста Ваш возраст (до 15, 16-25 лет, 26-45 лет, 46-55 лет, более 55 лет)
-Ваш социальный статус ( школьник, студент ит. д. )
<span>-Ваш уровень дохода (указать уровни) </span>