Const N = 40;
var
a:array[1..N] of integer;
i,j,s:integer;
st:real;
begin
for i:=1 to N do readln(a[i])
s:=0; st:=0;
for i:=1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then
begin s:=s+1; st:=st+a[i];end;
if s>0 then writeln('Среднеарифметическое = ',st/s:4:1)
else writeln('Искомых чисел нет');
end.
Пример (для n=20):
<span>416
295
-848
-881
-325
-690
139
-220
992
607
-998
400
720
-536
757
-123
-559
-941
22
-748
Среднеарифметическое = 22.0</span>
Мы имеем дело с импликацией. (Г-гласные, С - согласные)
(Г+Г)->С = ¬(Г+Г)+С = ¬Г*¬Г+С
Для представленных вариантов решений подходит только второй вариант.
Ответ: 2
Считаем количество символов в парольном алфавите
10 (цифры) + 11 строчных + 11 прописных = 32 символа
5 бит на символ (2^5 = 32)
15 символов * 5 бит = 75 бит, при записи пароля округляем вверх до байта, получим 10 байт.
30 паролей * 10 байт = 300 байт
Эл. там только положительный заряд, пр. все зряды
алг ЧетНечет
нач
цел А
А:= 0
ввод А
если mod(А,2) = 0
то вывод "Число четное"
иначе вывод "Число нечетное"
все
кон