var<span> a, n, rez, i: integer;</span>
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
if<span> a = 0 </span>then<span> rez := 1</span>
else begin
rez := n;
for<span> i := 1 </span>to<span> y - 1 </span>do<span> rez := rez * n;</span>
end;
writeln(rez);
end.
Сходства:
Одинаковый размер (диаметр 120 мм, толщина 1.6 мм), имеет тот же радужный вид. Лазерный принцип записи.
Различия:
CD-диск использует инфрокрасный лазер (длина волны в возухе 780 нм), а DVD-диск использует красный лазер (650 нм) (меньшая длина волны позволяет более плотнее размещать информацию на DVD-дисках).
Ёмкость DVD (4.7 ГБ) сильно различается от ёмкости CD (700 МБ)
Const n=15;
<span>var i,k,mn,indm,sm: integer;
</span><span> a: array[1..n] of integer;
</span><span> sar: real;
</span><span>begin
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> mn:=n; sm:=0;
</span><span> k:=1;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-n,n);
</span><span> sm:=sm+a[i];
</span><span> write(a[i],' ');
</span><span> if a[i]=mn then k:=k+1;
</span><span> if a[i]<mn then
</span><span> begin
</span><span> mn:=a[i];
</span><span> indm:=i;
</span><span> k:=1;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> writeln('минимальный элемент: ',mn,' индекс: ',indm);
</span><span> sm:=sm-a[indm]*k;
</span><span> writeln('сумма элементов без минимального: ',sm);
</span><span> sar:=sm/(n-k);
</span><span> writeln('среднее арифметическое: ',sar:7:3);
</span><span>end.
</span>исходный массив:
<span>-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
</span><span>минимальный элемент: -14 индекс: 4
</span><span>сумма элементов без минимального: 6
</span><span>среднее арифметическое: 0.462
</span>
Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
Println(a > b ? a * b : a + b)
end.