Всё очень просто.
Есть формула - V =R*D*I*T
где R - моно или стерео 1 или 2.
D - частота дискретизации.
I - глубина кодирования.
T - время.
V=2*8000 Гц*32 бит*60 с =30720000 бит =3840000 байт = 3750 Кб
Сестра мужа точно инженер
Сын точно слесарь
Муж может быть только учителем или юристом
Отсюда следует, что экономист либо жена либо отец жены.
Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-)
Тогда получается, что
- отец жены - экономист
- жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера
- муж - учитель, т.к. не кровный родственник жене-юристу.
-----------------------
ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.
// С циклом:
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := 1;
for i := 3 to 7 do
begin
Proizvedenie := Proizvedenie * y[i];
end;
WriteLn(Proizvedenie);
end.
// Без цикла
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := y[7] * y[6] * y[5] * y[4] * y[3];
WriteLn(Proizvedenie);
end.
===== PascalABC.NET =====
begin
var m:= ReadMatrReal(4, 3);
for var j := 0 to m.ColCount-1 do
m[0,j]:=m[0,j]**3;
m.ElementsByRow.Println;
for var i := 0 to m.RowCount-1 do
if Trunc(m[i,0]) mod 10 = 0 then
Println(i+1, m[i,0]);
end.