Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О
GlushkovAD
Uses crt;
const
a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
i,n,sum:integer;
begin
for i:=1 to 10 do write(a[i]:3);
writeln;
for i:=1 to 10 do
if a[i]>50 then
begin
sum:=sum+a[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение горячих участков: ',sr);
end.<span>
</span>
Var
a: array[1..20] of integer;
i,x: integer;
Begin
x := 1;
write('Введите 20 чисел для заполнения массива: ');
for i := 1 to 20 do begin
readln(a[i]);
end;
for i := 1 to 20 do begin
if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then
x := x * a[i];
end;
writeln('Произведение чисел нечетных и кратных 3 = ', x);
End.
Интернет,люди,книги , телевизор, школа
(A→(B→C))→((A→B)→(A→))≡1
(¬A+¬B+C)→(A*¬B+¬A+C)≡1
A*B*¬C+A*¬B+¬A+C≡1
A*(B*¬C+¬B)+¬A+C≡1 (применяем формулу: A+¬A*B=A+B)
A*(¬B+¬C)+¬A+C≡1
¬A+¬B+¬C+C≡1 (C+¬C=1)
1≡1
По формуле N=2^i находим информационный вес одного символа (N=16=>i=4 бита)
количество символов - это общий вес, делённый на вес символа (I=ki=>k=I/i=4*2^13/4=2^13 символов)
Вторая задача решается так же
