1.Сообщение несет 4 бита информации 2^4=N N=16 номеров полулюкс
16+36=52 всего
2. N=56 i=6 бит/1 символ
30*70*6*10= 126000 бит (15750 байт )
n - кол-во чисел
i - цикловая переменная
а - число
max - максимальное число, оканчивающееся на 3
Язык програмирования: Паскаль.
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 3) and (a > max) then
max := a;
end;
writeln(max)
end.
8 бит = 1 байт, так же как и в аски
0.5кбайт = 500 байт , значит 500 символов
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.
///////////////////////////////////////////