Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
Текст программы на языке Python:
#!/usr/bin/env python
# encoding: utf-8
#def ocenki():
""" В спортивных соревнованиях 10 судей выставили свои оценки
спортсмену. Итоговая оценка определяется так: самая наибольшая и
самая наименьшая оценки из общей суммы удаляются (если таких оценок
несколько, то удаляется только одна из них), затем среди оставшихся
подсчитывается среднее арифметическое. Написать программу, которая
позволила бы по известным оценкам судей автоматически выставлять
итоговую оценку спортсмену."""
print "Задача 1."
# Введем 10 оценок судей в память
a = []
for i in range(10):
a.append(input("Очередная оценка спортсмену: "))
# Отсортируем оценки по возрастанию:
a.sort()
# Удалим из списка минимальную оценку
a.pop(0)
#Удалим максимальную оценку
a.pop(-1)
# Напечатаем на экране среднее арифметическое (оценку)
print "Оценка спортсмену: ",
print float(sum(a)) / len(a)
print "-"*30, "\n\n\nЗадача 2."
# Завершение работы
#def chisla():
""" Напишите программу поиска четырехзначного числа,
которое при делении на 133 дает в остатке 125,
а при делении на 134 дает в остатке 111."""
# Резервируем место для найденных чисел, при делении которых
# на 133 в остатке получается 125
a = []
# будем перебирать все множители от 0 до числа, которое при
# умножении на 133 даст 10000. Нам больше не надо.
for i in range(0, 10000/133):
# Добавим число, которое при делении на 133 дает в остатке 125
# в список
a.append(i * 133 + 125)
# В список попали трехзначные числа и, может быть, и пятизначные.
# Отфильтруем его, оставив в нем только четырехзначные
a = filter(lambda x: 999 < x < 10000, a)
# Теперь рассмотрим числа, которые при делении на 134 дают в
# остатке 111.
for i in range(0, 10000/134):
# Если нам попадется число, которое уже есть в списке а, то
# напечатаем его
if (i * 134 + 111) in a:
print i * 134 + 111
# Вот и всё. Программа завершила работу
В приложении результат работы программы
№4const nx=30;var i,n,m,max,k,el,Sum,Sumnh:integer;C:Array[1..nx]of integer;Sr:real;BeginRead(n);for i:=1 to n do beginC[i]:= random(200)-100; write(C[i]:4);if C[i]>0 then begin Sum := Sum + C[i];k:= k+1;end;if C[i]< 0 then m:= m+1;end;Sr:= Sum/k;writeln;writeln('среднеарифметическое положительных элементов ',Sr:6:4);write('Количес. отриц. элементов ',m:4);end.№5const nx=30;var i,n,m,max,k,el,Sum,Sumnh:integer;C:Array[1..nx]of integer;Sr:real;BeginRead(n);for i:=1 to n do beginC[i]:= random(125)-75; write(C[i]:4);if C[i]>0 then begin Sum := Sum + C[i];k:= k+1;end;if C[i]< 0 then m:= m+1;end;Sr:= Sum/k;writeln;writeln('среднеарифметическое положительных элементов ',Sr:6:4);write('Количес. отриц. элементов ',m:4);end.
Решение:
1. Определим вес одного символа: 500 / 50 = 10 бита.
2. Мощность алфавита определяем по формуле: N=2^10 = 22
Ответ: мощность алфавита N = 22.