Var a,b:array[1..3] of integer; begin a[1]:=Random(26); b[1]:=Random(26); a[2]:=Random(26)+25; b[2]:=Random(26)+25; a[3]:=Random(51)+50; b[3]:=Random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('Совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('Совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('Совпало 1') else writeln('Совпадений нет'); end.
P.S Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
Var a,b:array[1..3] of integer; begin a[1]:=Random(26); b[1]:=Random(26); a[2]:=Random(26)+25; b[2]:=Random(26)+25; a[3]:=Random(51)+50; b[3]:=Random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('Совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('Совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('Совпало 1') else writeln('Совпадений нет'); end.
P.S Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
D = 16 бит =2^4 бит - глубина звука
H =48 КГц =48*1000= 3*2^4 *1000 Гц - частота звука (1/c)
t=F : (D *H)
t =468,75 *2^13 : (2^4 *3 *2^4 *1000) = 468,75 *2^5 :3 :1000=
=156,25*32 :1000 = 5 000 : 1 000=5 (c)
ответ: t =5 секунд