Program ggg;
uses GraphABC;var a,b: integer;beginwriteln('введи два целых числа');readln(a,b);if a>2 thenwriteln('первое число больше чем 2')else writeln('первое число меньше 2');
if b>2 thenwriteln('второе число больше чем 2')else writeln('второе число меньше 2');
end.
Очевидно, в условии опечатка.
Если "70 символов в строке, <span>28 строк, 7 страниц. 64 символа в алфавите", то
64 = 2^i
i = 6 бит на символ
70*28*7*6 = 82320 бит = 10290 байт ≈ 10 кбайт.
Если </span>"70 символов в алфавите, 28 строк, 7 страниц. 64 символа в строке", то ищем ближайшую целую степень двойки, такую, что
70 <= 2^i
2^6 = 64 < 70
2^7 = 128 > 70
i = 7
И тогда объём равен: 7*70*28*7 = 96040 бит = 12005 байт <span>≈ 11,7 кбайт.</span>
Один из наименее известных языков програмирования,используется для обучения програнированию в старших классах и на первых курсах вузов.
А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
Sub Макрос1()
'
' Макрос1 Макрос
'
'
s = 0
MsgBox "Выбраны ячейки: " & ActiveWindow.RangeSelection.Address
For n = 1 To Selection.Rows.Count
s = s + Selection.Cells(n, n)
Next n
MsgBox "сумма диагональных элементов: " & s
<span>End Sub
На самом листе Excel заводим кнопку CommandButton1 и даем название кнопке "Подсчет"
Набираем процедуру CommandButton1_Click
</span>Private Sub CommandButton1_Click()
Макрос1
<span>End Sub
</span>
После выделения диапазона ячеек мышью нажимаем кнопку "Подсчет" и получаем результат.
Решение в прикрепленном файле.
N = 2 ^ i
N = 2 ^ 5 = 32 класса
