Это или не это или не это ???
Var
A : array of real;
i, N, num : integer;
begin
write('Количество чисел: ');
readln(N);
SetLength(A, N);
for i := 0 to N - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
end;
num := 0;
for i := 0 to N - 1 do
if Sqr(A[i]) < 10 then
Inc(num);
writeln('Таких чисел: ', num);
end.
Ответ:
2,0,334
Объяснение:
Задаем две пользовательские функции в VBA
Function newstr(str As String, n As Integer) As String
Dim i As Integer
For i = 1 To n
str = Replace(str, "a", "ab")
str = Replace(str, "bb", "c")
Next
newstr = str
End Function
Function chrcount(str1 As String, str2 As String) As Integer
Dim str() As String
str = Split(str1, str2)
chrcount = UBound(str, 1)
End Function
В ячейках рабочего листа вставляем формулы.
Для вычисления числа символов "a":
=chrcount(newstr("abab";333);"a")
Для вычисления числа символов "b":
=chrcount(newstr("abab";333);"b")
Для вычисления числа символов "c":
=chrcount(newstr("abab";333);"c")
Получаем следующий результат:
a,b,c
2,0,334
1) 34CE16 это шестнадцатиричная система счисления. Если перевести её в двоичную получится число 1101001100111000010110
Остаётся только посчитать нули и единицы
2) если перевести число 5768 в двоичную систему, то получится число 1011010001000
Считайте единицы и нули.