Ответ:
Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов
Dim Composition as Integer ' Результат произведения нечетных элементов массива
Dim index as Integer ' Индекс для доступа к элементам массива
' Заполняем массив случайными числами
For index = 0 to 9
Massiv(index) = Rnd() * 5
print Massiv(index) ' Вывод массива
Next
' Инициализируем переменную Composition
Composition = 1
For index = 0 to 9
If Massiv(index) Mod 2 <> 0 Then ' Если элемент не четный то выполнить произведение
Composition = Composition * Massiv(index)
End if
Next
print Composition ' Результат произведения
Var
Zn:integer;
Begin
Zn:=2*482734;
Write(Zn);
End.
Модель римского войска.
Перед боем римляне строились не сплошной массой, а в 3 линии, каждая из которых состояла из 10 отрядов.
дают готовый 01 4D 8E 41 01 4D 8E 41, где каждая 2ая пара символов вычисляется по словарю аски, в каждое 1ая пара это код КОЛИЧЕСТВА который можно подобрать много раз набирая перевод 2ых пар. Так что должно выйти MAAAAAAAAAAAAAAMAAAAAAAAAAAAAA
Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова «бот» равна 8;
2) сумма цифр слова «вол» равна 9;
3) сумма цифр слова «болт» равна 11;
4) сумма цифр слова «лото» равна 12.
болт - бот = л, л = 11 - 8 = 3
вол = 9 во = вол - л = 9 - 3 = 6
лото =12
ото = лото - л = 12 - 3 = 9
бот=8, значит о > б на 1, л = 3,
<span>о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4</span>
