Дано:
t = 2 мин=120 c
f = 44100 Гц
i = 22 бит
V = ?
Решение:
V = f*t*i
V = 44100*120*22 = 116424000 бит <span>~ 13,88 Мбайт
</span>
Pogram ypr;Var s:string;p:integer;beginreadln(s);p:=pos(' ',s);delete(s,2,p);writeln(s);end.
Максимум двое. Я даже в интернете искал, когда учительница начинала что-то говорить
<span>Самая большая поразрядная сумма 18, значит, те у которых она больше, выкидываем
1616 - подходит (</span>например, <span>888)
169 16'9 </span> - подходит (например, 881)<span>
163 16'3</span> - подходит, но чтобы получить 16 во втором разряде как минимум должно быть 7 (97), тогда, даже если в третьем 0, уже сумма будет больше 3. Выкидываем<span>
1916 </span>Выкидываем<span>
1619 </span>Выкидываем<span>
316 3'16 не подходит, последовательность возрастает
916 9'16 </span>не подходит, последовательность возрастает<span>
116 подходит (например, 560)
Итого, три числа</span>
1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
