Поочередно удаляем повторяющиеся буквы
НАВВАНУККТЦЙЧТТЧМЦЙЙЦМЙЦКОБПРРПБНГГНХХНЪЪОЬУУФФЙЙЬЧИИЧСНШЩЗЗЩЖЭЭЖШНГККГ
НААНУТЦЙЧЧМЦЦМЙЦКОБППБНННОЬЬЧЧСНШЩЩЖЖШНГГ
ННУТЦЙММЙЦКОББНОСНШШН
УТЦЙЙЦКОНОСНН
УТЦЦКОНОС
УТКОНОС
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub
Запиши в таблицу 1, предков А.С.Пушкина далее запиши в тетради таблицу 2, и там запиши предков Пушкина по убыванию.
CLS
INPUT "n = ", n
P = 1
FOR i = 1 TO 2 * n
P = P * i
NEXT i
PRINT "P = "; P
END