Program mas;
const n=4; // число элементов
var a: array [1..n] of integer; //массив
i, sum: integer; //переменные
begin //начало
sum:=0; // сумма=0
for i:=1 to n do readln(a[i]); //вводим массив
for i:=1 to n do //цикл
if(a[i] mod 2 <>0) then //условие нечетности
begin
writeln(a[i]); //выводим нечетные
sum:=sum+a[i]; //считаем сумму
end;
writeln(sum); //выводим сумму
end. //конец
<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>
program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
N = 2^i,
где N – мощность алфавита (количество символов),
i – количество бит (информационный вес символа).
I = K * i
где I – информационный объем текста,
K – количество символов в тексте,
i – количество бит (информационный вес символа).
Дано:
K = 512
I = 1/4 часть килобайта = 256 байт = 2048 бит
Найти: N
Решение:
I = K * i
i = I / K = 2048 / 512 = 4 бита
N = 2^i = 2⁴ = 16 символов содержит алфавит племени Мульти
Ответ: г