101(2) = 5(10)
1101(2) = 8+4+1 = 13(10)
10101(2) = 16+4+1 = 21(10)
Следующее число 11101(2) = 16+8+4+1 = 29(10) уже больше 25.
Ответ: 5, 13, 21
Var
a, b: integer;
Begin
Writeln('Введите 2 числа');
Read(a,b);
if (a*b mod 3 = 0) then Writeln('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')
else Writeln('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится');
end.
1.а
5 управление памятью
1.планирование процессоы
4.поддержка опр...
2файловая система
3.защита
<span>Ученик является элементом множества Класс
Водород входит в состав воды. Но ученик тоже входит в состав класса, поэтому в каком-то смысле понятия "Элемент множества" и "Входит в состав" равнозначны.
Среда предшествует четвергу.</span>
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