месяцы,каждый месяц в каждом времени года-это и есть классификация
Программа на языке Паскаль.
const N=30;
var i, s0, k, a: integer;
b: array [1..N] of integer;
begin
readln(a);
s0:=0;
k:=0;
randomize;
for i:=1 to N do
begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
if (b[i]<0) then s0:=s0+b[i];
if (b[i]>0) and (b[i]<=a) then inc(k);
end;
if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
else writeln('отрицательных чисел нет');
if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.
Ответ:
6
Объяснение:
Условие Фано означает, что ни одно кодовое слово не является началом другого кодового слова.
Мы можем начать наш код либо с нуля, либо с единицы, значит, чертим два дерева. Если мы закодируем букву нулём или единицей, для других букв не будет выполняться условие Фано, поэтому нужно добавить ноль или единицу (на каждом дереве появилось две ветки). 10 мы не можем использовать, так как с него начинается кодовое слово буквы А. Кратчайшие кодовые слова - 00, 01, 11. Сумма длин равна 2 * 3 = 6
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14
Program abc;
const<span> arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
</span>var<span> i, j: integer;
</span>begin
<span>
for i := 1 to 4 do
</span><span> begin</span><span>
for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;
</span><span> writeln();
</span><span> end;</span>
<span> writeln();
</span><span>
for i := 1 to 4 do
</span><span>begin
</span><span> j := arr[2][i];
</span><span> arr[2][i] := arr[3][i];
</span><span> arr[3][i] := j;
</span><span> end;
</span><span> for i := 1 to 4 do
</span><span>begin
</span><span> for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;</span><span>
writeln();
</span><span> end;
</span><span>end.</span>