6 видов сигнала.
Для кодирования 1 сигнала необходимо 3 бита, т.к. 22<6<23 или 4<6<8.
Для кодирования 100 сигналов необходимо: 100*3=300 бит.
Переведем в байты:
300\8=37,5 байт.
Округляем (в большую сторону) до 38 байт.
Ничего не будет напечатано, так как в программе кроме большого количества опечаток есть и явная ошибка: переменная sr не может иметь тип integer (это следует из оператора <span>sr:=s/3).</span>
var a:array[1..100000] of integer;
i,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); if(a[i]=0) then k:=k+1; end;
writeln(k);
end.
{Сначала вводится количество чисел в массиве (n), после этого вводится каждое число (a[i]) и если оно равно 0, то переменная k (количество)
увеличивается на 1}
Не совсем требования к программе понятны. Написал на ПаскальАВС.Нет с использованием функции
var x,y,z:integer;
function ex(x:integer):integer;
begin
if x>0 then result:=2*x
else result:=x*x;
end;
begin
write('Введите x, y, z: ');
readln(x,y,z);
x:=ex(x);
y:=ex(y);
z:=ex(z);
writeln('Новые значения: ',x,'; ',y,'; ',z);
<span>end.
Вариант без использования функции
</span>var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if x>0 then x:=2*x
else x:=x*x;
if y>0 then y:=2*y
else y:=y*y;
if z>0 then z:=2*z
else z:=z*z;
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, -99, 99);
a.Println;
var M := ReadInteger('Сколько последних взять?');
if m > n then
Println('Не нужно жадничать!')
else
Println('Сумма', m, 'последних равна', a.TakeLast(m).Sum)
end.