Вот решение на языке Паскаль:
less
Copy code
program CountLessThanFive;
var
B: array[1..10] of Integer;
Count, i: Integer;
begin
// Заполняем массив случайными числами от 0 до 9
for i := 1 to 10 do
B[i] := Random(10);
Count := 0;
// Подсчитываем количество элементов меньше 5
for i := 1 to 10 do
if B[i] < 5 then
Count := Count + 1;
// Выводим результат
Writeln('Количество элементов меньше 5: ', Count);
end.
Программа создает массив B из 10 элементов и заполняет его случайными числами от 0 до 9. Затем программа перебирает все элементы массива и увеличивает счетчик Count на 1, если элемент меньше 5. В конце программа выводит количество элементов меньше 5.
Объяснение:
3^2= 100 (3cc)
3^44 =100 (3cc) (сорок четыре нуля после единицы)
3^66 =100 (3cc) (66 нулей)
3^44-3^2= 100000 - 100 (3cc) =2200 (44-2=42 двойки)
ответ 42