В биты помню это 128 байт=1024 бит
а вот в кб не помню
1. 3 мбайт = 3 * 1024 = 3072 кбайт
2. 3072 кбайт = 3072 * 8 = 24576 кбит
3. s = v * t
t = s / v
t = 24576 / 128
t = 192 секунды
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.
Ответ:
Var
y,x: integer;
begin
writeln('Ведите ваше число:');
read(x) ;
if x > 2 then
writeln('Результат y =: ', x+3)
Else
if x <=- 2 then
writeln('Результат y =: ', 1 div x);
Readln ;
end.
На Visual Basic
Sub Roma
Dim R As String, N As Long, k As Integer, i As Integer
R = InputBox ("Vvedite Rimskoe chislo")
N = 0 : k = 0
i = 1
Do
k = InStr$(R, i, "M")
If k > 0 Then N = N + 1000
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "CM")
If k > 0 Then N = N - 100
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "D")
If k > 0 Then N = N + 500
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "CD")
If k > 0 Then N = N - 100
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "C")
If k > 0 Then
If (Mid$(R, k+1, 1) <> "D") And (Mid$(R, k+1, 1) <> "M") Then
N = N + 100
End If
End If
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "XC")
If k > 0 Then N = N - 10
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "L")
If k > 0 Then N = N + 50
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "XL")
If k > 0 Then N = N - 10
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "X")
If k > 0 Then
If (Mid$(R, k+1, 1) <> "C") And (Mid$(R, k+1, 1) <> "L") Then
N = N + 10
End If
End If
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "IX")
If k > 0 Then N = N - 1
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "V")
If k > 0 Then N = N + 5
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "IV")
If k > 0 Then N = N - 1
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "I")
If k > 0 Then
If (Mid$(R, k+1, 1) <> "X") And (Mid$(R, k+1, 1) <> "V") Then
N = N + 1
End If
End If
Loop While ((k > 0) And (i <= Len(R)))
MsgBox (N)
End Sub