10- это точно, так как присвоено
рандом(5) - это значит что У от 0 до 4
т.е. У может принимать значения от 10 до 14
Ответ:
Program test1;
Var
A,B,C,k:Integer;
Begin
k:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k:=k + 1;
If B > 0 Then
k:=k + 1;
If C > 0 Then
k:=k + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k);
End.
var
a:integer;
begin
writeln('Num'); readln(a);
if (a > 0) and (a < 5) then begin
case a of
1:writeln('Один');
2:writeln('Два');
3:writeln('Три');
4:writeln('Четыре');
end
end
else
writeln(sqr(a));
end.
Дано:
I = 16 бит = 2 байта
n = 25 кГц = 25 000 Гц
t = 2.5 мин = 150 с
Найти:
V - ?
Решение:
V = I*n*t
V = 2 байта * 25 000 Гц * 150 с = 7 500 000 байт / 1024 ≈ 7 324.2 Кбайта / 1024 ≈ 7.2 Кбайта
Ответ: 7.2 Кбайта
<span>1й элемент реализует функцию A=
,
2й - B=</span><span><span>
, 3й - F=
Таблица истинности
x
y
z
A
B
F
</span><span>0
0
0
1
1
0
</span><span>0
0
1
1
0
0
</span><span>0
1
0
1
1
0
</span><span>0
1
1
1
0
0
</span><span>1
0
0
1
1
0
</span><span>1
0
1
1
0
0
</span><span>1
1
0
0
1
0
</span><span>1
1
1
0
0
1
</span></span>
Из таблицы видно, что F=