Решить по информатике: дано целое число n , если оно является степенью числа 3 то вывести: истина, иначе вывести ложь

Берем это число. Начинаем делить на 3 в цикле. К какой-либо переменной присваиваем +1.
Ну делим, проверяя на наличие остатка (должен быть равен 0)
Потом, если остаток образуется, выходим из цикла, выводим "ложь". Иначе проверяем, если переменная, к которая считала кол-во делящихся элементов делится нацело на 3 без остатка, выводим "истина" иначе ложь. Два цикла
Я на с++ пишу, скорее всего не подойдет

Код программы:

#include <iostream>

#include <locale>

#include <time.h>

using namespace std;

void rand_mas(int *mas, int n) {

srand(time(NULL));

int a = -30, b = 30;

for (int i = 0; i < n; i++)

 mas[i] = a + rand() % (b - a);

}

int min_mas(int *mas, int n) {

int min = mas[0];

for (int i = 1; i < n; i++) {

 if (min > mas[i])

  min = mas[i];

}

return min;

}

int main()

{

setlocale(LC_ALL, "Russian");

int *A, N, min, *temp;

cout << "Введите количество элементов в массиве" << endl;

cin >> N;

A = new int[N];

rand_mas(A, N);

cout << "Исходный массив: " << endl;

for (int i = 0; i < N; i++)

 cout << A[i] << ' ';

min = min_mas(A, N);

temp = A;

A = new int[N + 1];

A[0] = min;

for (int i = 1, j = 0; i < N; i++) {

 if (temp[j] == min) {

  ++j;

  A[i] = temp[j];

  ++j;

  continue;

 }

 A[i] = temp[j];

 ++j;

}

cout << "\nИзмененный массив: " << endl;

for (int i = 0; i < N; i++)

 cout << A[i] << ' ';

return 0;

}

К первому поколению относят ламповые машины 1940-х годов, которые пришли на смену табуляторам. Скорость счета у них доходила до 20 тысяч операций в секунду. Данные вводились с перфокарт и перфоленты

2.Технологии хранения данных активно совершенствуются со времен появления первых компьютеров. Еще вчера мы пользовались 1,44-мегабайтными дискетами, а сегодня в продаже можно найти 256-гигабатные флеш-накопители. А ведь это далеко не предел. Пока инженеры трудятся над созданием новых, более прогрессивных носителей информации, мы вспоминаем, как повлияли на компьютерную индустрию перфокарты, магнитные ленты и форматы CD и DVD