Акустическая система
<span>//</span><span>Решение должно иметь от 20 до 5000 символов</span>
У тебя задание не правильно написано похоже .
Если 13 БАЙТОВ,то нужно 13•8=102 бита
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
<em>Ответ:</em>
<em>Сканер. Это отдельное устройство, которое используется для сканирования документов, с последующей отправкой скана в компьютер</em>.