<span>те которые храняться на цифровых носителях, которые состоят из разного набора чисел</span>
Зрение, слух, обоняние, осязание и тактильное восприятие.
2x43x3134x2332x232x322x3223x228x1337
Var a,b, C: real; C - угол между сторонами а и b
begin
read (a,b,c);
S:=1/2*a*b*sin (C);
writeln(s);
end.
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub