===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.
Извини, текст не понятный. Не могла бы ты переписать его?
1) 16-4 степень 2 1 символ - 4 бита
2) 2 в степени 5 = 32 символа
3) 256 - 8 степень 2 1 символ - 8 бит 20*8=160 битов
4) 4*50=200 битов 5*60=300 битов Итого: 200+300=500 битов
5) 8*30*70=16800 битов
<span><span>Если правильно расставить отступы, то алгоритм должен вывести это:
Ира съел(a) молоко.
#Programm created by lagov Gleb
</span><span>#This programm is generator random wordsXD
</span>name = ['Глеб', 'Артем', 'Ира', 'Варя', 'Андрей']
glagol = ['выпил(a)', 'съел(a)', 'купил(а)', 'укусил(а)', 'пнул(а)']
predmet = ['молоко', 'дверь', 'велосипед', 'лестницу', 'XBOX', 'PlayStation']
from random import randint
def pick(words):
num_words = len(words)
num_picked = randint(0, num_words - 1)
word_picked = words[num_picked]
return word_picked
print(pick(name), pick(glagol), pick(predmet), end='.\n')
input()</span>