Ошибка тут: program Random;
Или переименуйте или вообще уберите эту строку.
Устройства ввода подразделяются на следующие категории:
устройства ввода графической, звуковой и видео информации;механические устройства ввода;непрерывные устройства ввода (устройства, предоставляющие входные данные непрерывно, например, мышь, радиоприёмник, ТВ-тюнер);устройства ввода для пространственного использования (например, двухмерная мышь, трёхмерный навигатор).
Компьютерные указывающие устройства ввода по способу управления курсором делят на следующие категории:
указывающие устройства прямого ввода (управление осуществляется непосредственно в месте видимости курсора (например, сенсорные панели и экраны));непрямые указывающие устройства (например, трекбол,компьютерная мышь).
//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.
K=320 с
i=8 бит/с
I - ?
I=K*i=320 с * 8 бит/c = 320 c * 1 байт/с = 320 байтов
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