101110111(2) = 1∙2^8+0∙2^7+1∙2^6+1∙2^5+1∙2^4+0∙2^3+1∙2^2+1∙2^1+1∙2^0 = 256+0+64+32+16+0+4+2+1 = 375(10)
2347(8) = 2∙8^3+3∙8^2+4∙8^1+7∙8^0 = 1024+192+32+7 = 1255(10)
помог бы с остальными но времени нет
Я так думаю, что это hdd или ssd
Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub